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Hie  computer  codes  DSLC  and  DMLC,  written  to  implement  the 


decomposition  algorithms  developed  by  Kochman  (1976) , are  documented 
and  listed  in  this  report.  These  programs  are  designed  to  solve  the 
block  angular  integer  programming  problem. 
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L(J)  <X(J)  x(j)  integer,  j = 1,  2,  •••,  N,  (k) 


by  decomposition  into  subproblems.  The  routine  DSLC  exploits  certain 
special  structures  which  arise  when  (P)  has  only  a single  linking 
constraint  (2),  i.e.,  when  the  constraint  matrices  (l  < j < N) 

have  only  a single  row.  The  routine  DMLC  treats  the  multiple  linking 
constraints  case.  See  Kochman  (1976)  for  a detailed  discussion  of 
these  decomposition  algorithms;  a step-by-step  statement  of  the 
algorithms  is  presented  in  Section  5-2  there. 
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In  addition  to  the  programs  DSLC  and  DMLC,  the  integer  linear 
programming  routine  BB  is  documented  and  listed  here  The  computer 
code  BB  is  designed  to  solve  the  general  (unstructured)  integer 
program. 
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(Q) 


maximize  cx 


subject  to  Ax  < b 


L < x < U,  x integer, 

by  branch -and -bound  search.  Specifically,  the  branch-and-bound 
algorithm  BB  follows  the  ideas  of  Dakin  (1965).  Tomlin's  (1970) 
improved  penalty  calculations  are  used  to  guide  the  branching  process, 
and  the  last-in-first-out  (LIFO)  rule  is  used  to  retrieve  stored  nodes 
in  the  search  tree  when  backtracking  occurs"*". 

Hie  code  BB  is  embedded  in  both  the  routines  DSLC  and  EMLC 
for  the  purpose  of  solving  the  integer  programming  subproblems  as 
required  by  the  decomposition  procedures.  It  should  be  noted,  however, 
that  the  routine  BB  itself  uses  only  standard  methods.  This  code 
docs  not  represent  a new  contribution  to  the  field  of  integer  pro- 
gramming; its  documentation  is  Included  here  for  the  sake  of  complete- 
ness. 

"W  further  references,  see  Beale  (1968),  Beale  and  Small  (1965), 
and  Little,  Murty,  Sweeney,  and  Karel  (1963) . 
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The  linear  programming  portions  of  all  three  programs  are 
based  extensively  on  the  Fortran  code  LFM-1,  developed  by  Dr.  John 
A.  Tomlin  of  the  Systems  Optimization  Laboratory,  Department  of 
Operations  Research,  Stanford  University.  LIM-1  is  designed  to 
implement  the  revised  simplex  method,  using  the  produc t-form  of  the 
inverse.  In  adopting  this  code  for  use  in  the  routines  BB,  DSLC,  and 
EMLC,  the  present  author  has  modified  LBi-1  appropriately  to  incorporate 
the  bounded-variable  technique  as  well.  LFM-1  has  been  documented 
by  Tomlin  (1975) . 


The  three  codes  BB,  DSLC,  and  DMLC  are  written  in  FORTRAN  IV 
for  Stanford's  IBM  370/168,  with  all  instructions  and  data  in-core. 
Each  code  is  WATFIV  compatible  as  well.  The  codes  may  be  machine- 
dependent,  however,  insofar  as  each  code  makes  calls  to  the  system 
subroutine  PCLOCK.  In  each  program,  this  subroutine  is  used  to 
compute  the  total  time  the  IBM  370/168  Central  Processing  Unit  was 
available  to  the  core  partition  containing  the  job.  In  addition, 
PCLOCK  is  used  to  determine  the  computation  times  required  for  various 
intermediate  tasks  performed  by  the  algorithms. 

The  various  subprograms  (exclusive  of  the  main  programs)  which 
comprise  each  of  the  three  codes  are  listed  in  Table  I.  These  sub- 
routines are  described  in  greater  detail  in  the  remaining  sections 
of  this  report.  More  specifically,  the  branch-and-bound  code  BB  is 
discussed  in  Section  2,  while  the  decomposition  codes  DSLC  and  EMLC 
are  discussed  in  Sections  3 and  4,  respectively.  Listings  of  the 
three  programs,  and  the  output  results  obtained  in  sample  runs  of 
each  are  given  in  Appendices  I-III. 
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TABLE  I 

Subprograms  for  Computer  Codes  BB, 

DSLC,  DMLC 

m 

DSIC 

DMLC 

BLOCK  DATA 

BIDCK  DATA 

BIDCK  DATA 

INPUT (IFPROB,  INITBD) 

INPUT (IFPROB) 

INPUT (IFPROB) 

FTRAN(IPAR) 

FTRAN(IPAR) 

FTRAN(IPAR) 

BTRAN 

BTRAN 

BTRAN 

FORMC 

FORMC 

FORMC 

PRICE 

PRICE 

PRICE 

CHUZR 

CHUZR 

CHUZR 

WRETA 

WRETA 

WRETA 

SHIFTR(IOU),  I NEW) 

SHIFTR(IOU),  I NEW) 

SHIFTR(I0LD,  INEW) 

INVERT 

INVERT 

INVERT 

UNPACK  (IV) 

UNPACK (IV) 

UNPACK (IV) 

SHFTE 

SHFTE 

•JPBETA 

UPBETA 

UPBETA 

NORMAL(ITSINV) 

NORMAL 

NORMAL 

BANDB (INITBD,  ITSINV) 

BANDB (INITBD) 

BANDB (INITBD) 

DCHUZR 

DCHUZR 

DCHUZR 

DCHUZC 

DCHUZC 

DCHUZC 

TESTX 

TESTX 

TESTX 

PENLTS 

PENLTS 

PENLTS 

BRANCH 

BRANCH 

BRANCH 

BKTRAK 

BKTRAK 

BKTRAK 

WRAPUP 

ALOCTE(lPAR,  IRHS) 

DOMCHK(J,  K) 
IDDATA(J) 

GETLBD(J) 

SAVER(J) 

DMBRAN(J,  K) 

BBKTRK 

OUTSOL(INC) 

PHASEl(J) 

AIOCTE(IPAR) 

LraiSTR 

TESTZ 

DOMCHK(J,  K) 
LDDATA(J) 
GETLBD(J) 
PISAVR(J) 
SAVER (J) 
DMBRAN(J,  K) 
BBKTRK 
OUTSOL(INC) 

2.  The  Braneh-and-Bound  Code  BB 

2.1.  Main  Program  and  Input  Requirements 

The  main  program  for  the  branch-and -bound  code  BB  serves  to 
coordinate  the  application  of  the  input  (INPUT) , linear  programming 
(NORMAL),  branch-and -bound  (BANDB;,  and  output  (WRAPUP)  subroutines. 
The  first  card  of  input  must  contain  values  for  the  variables  INPROB, 
IOBJ,  INVFRQ,  ITRFRQ,  and  INITBD  in  tlk,  110  format.  These  variables 
have  the  following  significance: 

INPROB  = problem  identification  number.  (Must  be  nonzero;  other- 
wise, no  computations  are  carried  out  and  BB  terminates 
immediately. ) 

I0BJ  = row  number  for  objective  row.  Automatically  set  to 

one  by  default  if  IOBJ  is  omitted. 

INVFRQ  = Parameter  determining  frequency  with  which  basis  rein- 

version  is  carried  out  in  the  linear  programming  portions 
of  the  code;  if  INVFRQ  = k,  basis  reinversion  will  be 
carried  out  after  every  k (primal  and/or  dual)  simplex 
iterations.  INVFRQ  should  not  be  set  greater  than  the 
number  of  rows  in  the  problem. 

ITRFRQ  = upper  limit  on  total  iterations;  all  computations  are 
terminated  if  the  total  number  of  simplex  iterations 
exceeds  ITRFRQ. 
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INITBD  = initial  lower  bound  estimate  for  maximum  objective 
function  value.  The  value  of  INITBD  is  used  in 
fathoming  tests  until  the  first  integer-feasible 
incumbent  solution  is  found  with  objective  value 
greater  than  INITBD. 

BB  assumes  all  cost  coefficients  are  integer-valued,  and 
takes  advantage  of  this  by  rounding  all  upper  bounds  down  to  the 
nearest  integer.  The  formats  used  for  input  of  row  and  column 
names,  objective  function  coefficients,  constraint  matrix  coefficients 
and  right-hand  side  coefficients  are  identical  to  those  used  by  LEM-1, 
(ihis  format  is  consistent  with  standard  MPS  format.)  Following 
input  of  these  data,  initial  lower  and  upper  bounds  XLB(J),  XUB(J) 
for  all  decision  variables  must  be  input  in  15F5.0  format. 

The  input  for  a sample  run  of  BB  is  included  in  Appendix  I, 
following  the  listing  of  the  program. 

2.2.  Restrictions  Relevant  to  the  Use  of  BB 
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1.  BLOCK  DATA — From  LFM-l;  sets  initial  values  for  a number  of 
variables  used  throughout  the  program.  (See  Tomlin  (1975).) 

2.  SUBROUTINE  INPUT(lFPROB,  INITBD)— From  LFM-l;  reads  in  all 
problem  data.  (See  Tomlin  (1975)0  Modified  to  also  read  in 
lower  and  upper  bounds  on  decision  variables. 

Parameters : 

IFPROB  (Output,  INTEGER*1*)  Problem  identification  number 
(=INPR0B) 

INITBD  (Output,  INTEGER*1*)  Initial  lower  bound  estimate  for 
maximum  objective  value. 

3.  SUBROUTINE  FTRAN(IPAR) — From  LFM-l;  performs  forward  transfor- 
mation of  matrix  columns  by  basis  inverse.  (See  Tomlin  (1975).) 
Parameters : 

IPAR  (Input,  INTEGER*1*)  Determines  eta-vectors  by  which 
matrix  column  is  updated. 

J+.  SUBROUTINE  BTRAN — From  LFM-l;  performs  backward  transformation. 
(See  Tomlin  (1975).) 

5.  SUBROUTINE  PORMC — From  LFM-l;  forms  objective  function  vector 
for  Phase  I of  primal  simplex  method.  Used  in  conjunction  with 
SUBROUTINE  PRICE.  (See  Tomlin  (1975) • ) Modified  for  bounded- 


variables. 
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6.  SUBROUTINE  PRICE — From  LFM-1;  prices  out  columns  for  primal 
simplex  method  and  chooses  pivot  column.  (See  Tomlin  (1975).) 
Modified  for  bounded -variables. 

7.  SUBROUTINE  CHUZR — From  LFM-1;  chooses  pivot  row  for  primal 
simplex  method.  (See  Tomlin  (1975).)  Modified  for 
bounded-variables . 

8.  SUBROUTINE  WRETA — From  LFM-1;  forms  new  eta-vectors  for  product- 
form  of  basis  inverse.  (See  Tomlin  (1975).) 

9-  SUBROUTINE  SHIFTR(IOLD,  INEW) — From  LFM-1;  rearranges  data 
storage.  (See  Tomlin  (1975).) 

Parameters : 

IOIL,  INEW  (Both  input,  both  INTEGER*^)  IOLD  indexes  storage 
locations  of  data  to  be  transferred  by  SHIFTR  to  locations 
indexed  by  INEW. 

10.  SUBROUTINE  INVERT — From  LFM-1;  Determines  basis  inverse  by  LU 
decomposition.  (See  Tomlin  (1975).)  Modified  to  update  RHS 
with  bounded-variables. 

11.  SUBROUTINE  UNPACK (IV) — From  LFM-1;  expands  compressed  matrix 
columns  by  inserting  zeroes  appropriately.  (See  Tomlin  (1975).) 
Parameters : 

IV  (input,  INTEGER*!*)  Indexes  the  matrix  column  to  be 
expanded. 

12.  SUBROUTINE  SHFTE— From  LFM-1;  subroutine  for  INVERT.  (See  Tomlin 

(1975).) 
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13 • SUBROUTINE  UPBETA — From  LFM-1 } updates  RHS  following  a primal 
or  dual  simplex  pivot.  (See  Tomlin  (1975).)  Modified  for 
bounded -variables . 

1^.  SUBROUTINE  NORMAL ( ITS INV) — From  LEM-1;  directs  execution  of 
primal  simplex  method.  (See  Tomlin  (1975).)  Modified  for 
bounded -variables . 

Parameters : 

ITSINV  (Input /Output,  INTEGER*!*-)  Counts  number  of  simplex 
iterations  since  last  basis  inversion. 

15*  SUBROUTINE  BANDB(INITBD,  ITSINV) — directs  execution  of  branch- 
and-bound  search  for  optimal  integer  solution,  after  optimal  LP 
solution  has  been  computed  in  SUBROUTINE  NORMAL.  Also  directs 
reoptimization  via  dual  simplex  method  following  a branch  in 
the  forward  direction.  Calls  NORMAL  for  reoptimization  after 
backtracking. 

Parameters : 

INITBD  (Input,  INTEGER*!*-)  Initial  lower  bound  estimate  for 
maximal  objective  value. 

ITSINV  (Input/Output,  INTEGER*!*-)  Counts  number  of  simplex 
iterations  since  last  basis  inversion. 

16.  SUBROUTINE  DCHUZR — Selects  pivot  row  for  dual  simplex  method 
(analogous  to  CHUZR) . 

17.  SUBROUTINE  DCHUZC — Selects  pivot  column  for  dual  simplex  method 
(Analogous  to  PRICE). 
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18.  SUBROUTINE  TES1X — Tests  optimal  LP  solution  at  each  node  for 

fathoming.  Installs  new  incumbent  each  time  an  improved 

f 

integer-feasible  solution  is  found. 

19.  SUBROUTINE  PENLTS — Computes  Tomlin's  improved  up-  and  down-penalties 
and  the  Gomory  penalty  at  each  node.  Checks  for  forced  branches 

on  both  basic  and  non-basic  decision  variables.  If  computed 
penalties  are  insufficient  for  fathoming,  chooses  branching 
variable,  calls  SUBROUTINE  BRANCH. 

20.  SUBROUTINE  BRANCH — Performs  necessary  bookkeeping  far  branching 
as  indicated  by  SUBROUTINE  PENLTS.  Increments  list  of  stored 
nodes j revises  bounds  on  branching  variable  appropriately  for 
branch  in  forward  direction. 

21.  SUBROUTINE  BKTRAK— Uses  last-in-first-out  (LIFO)  strategy  to 
retrieve  unfathomed  nodes  from  list  of  stored  nodes. 

22.  SUBROUTINE  WRAPUP — Outputs  final  solution  information.  (See 
output  from  sample  run  in  Appendix  I.) 


2. k.  Description  of  Output 

The  output  from  BB  takes  the  following  form.  Whenever  a new 


incumbent  solution  is  found,  the  computation  time  required  to  reach 


the  solution,  and  the  corresponding  objective  value  of  the  solution 
are  printed  out.  When  all  computations  are  completed  (i.e.,  when  the 
optimal  solution  has  been  obtained,  and  its  optimality  verified), 


the  total  solution  time  is  output.  The  optimal  integer  solution  is 
then  printed  out  in  2015  format.  More  specifically,  the  optimal 


column  values  are  output  in  the  order  (l)  objective  function  value, 

(2)  slack  variables,  and  (3)  decision  variables.  The  values  of 
the  first  twenty  columns  are  printed  on  the  first  line,  the  second 
twenty  on  the  second  line,  etc.,  until  all  column  values  have  been 
printed.  The  output  from  a sample  run  of  BB  is  given  in  Appendix  I, 
following  the  listing  of  the  program. 

2.5*  Further  Comments 

As  currently  written,  the  Fortran  code  BB  contains  approximately 
1,1+50  source  statements.  All  significant  array  storage  is  done  in 
COMMON.  In  all,  approximately  6*+K  bytes  of  core  storage  are  required 
by  the  three  COMMON  blocks.  When  compiled  on  Stanford's  IBM  370/168 
under  IBM's  PORTRAN-H-exiended  compiler,  with  level  two  optimization, 
approximately  113K  bytes  of  core  are  required  for  all  instruction  and 
data  storage. 

The  computer  program  BB  was  written  by  the  present  author  in 
the  course  of  completing  his  doctoral  dissertation  in  the  Department 
of  Operations  Research,  Stanford  University.  Computational  results 
(solution  times)  obtained  on  several  test  problems  are  presented  in 
Chapter  6 of  Kochman  (1976).  BB  was  last  revised  in  September  1976. 
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3.  The  Decomposition  Code  DSLC 

3.1.  Main  Program  and  Input  Requirements 

The  main  program  for  the  code  DSLC  coordinates  the  application 
of  the  two  phases  of  the  decomposition  algorithm  for  block  angular 
integer  programs  with  a single  linking  constraint.  In  Phase  I,  the 
problem  data  is  input,  and  the  computations  required  to  construct 
the  Master  Problem  are  carried  out.  The  branch-and -bound  search  for 
an  optimal  allocation  of  the  linking  resources  is  executed  in  Phase  2. 

DSLC  has  been  written  so  that  any  of  the  four  decision  rules  for 
subproblem  selection  may  be  specified  by  the  user.  (See  Section  5.2 
in  Kochman  (1976) . ) This  is  done  by  assigning  the  appropriate  value 
to  the  input  variable  IPARM,  as  described  below. 

The  first  card  of  input  for  DSLC  contains  values  for  the 
variables  NSUBS,  IB,  IPARM,  and  IZINC  in  LllO  format.  These  variables 
have  the  following  significance: 

NSUBS  = number  of  subproblems. 

IB  = linking  constraint  right-hand  side. 

IPARM  = parameter  determining  which  subproblem  selection  rule 

is  used  in  Phase  2. 

Spec ifically, 

IPARM  1 ^Selection  rule  based  on  average  gaps  between 
LP  bounds  and  corresponding  exact  integer 
programming  objective  values  in  the  subproblems. 


IPARM  = 2 =>  Selection  rule  based  on  average  slack  in 

the  linking  constraint  in  the  optimal  sub- 
problem solutions. 

IPARM  = 3 ^ Selection  rule  based  on  average  subproblem 
solution  times. 

IPARM  = 4 =»  First  unfixed  subproblem  will  be  selected, 
where  subproblems  are  numbered  in  the  same 
order  in  which  they  were  input. 

IZINC  = lower  bound  estimate  for  maximum  overall  objective  value. 

Following  the  first  card,  the  problem  data  for  the  individual 
subproblems  is  read  in  sequentially.  The  format  of  this  data  is  the 
same  for  each  subproblem,  and  is  similar  to  the  format  used  to  input 
problem  data  in  the  branch- and -bound  code  BB  described  in  Section  2.1. 
For  each  subproblem,  the  first  card  of  input  contains  the  value 
for  the  variable  INPRDB  in  lb  format,  where 

INPROB  = subproblem  identification  number.  The  subproblems  must 

be  numbered  and  input  sequentially  in  the  order 
1,  2,  3,  •••>  NSUBS. 

DSLC  assumes  that  all  cost  coefficients  in  each  of  the  subproblems 
are  integer-valued,  and  takes  advantage  of  this  by  rounding  all 
upper  bounds  down  to  the  nearest  integer.  For  each  subproblem,  the 
formats  used  for  input  of  row  and  column  names,  objective  function 
coefficients,  constraint  matrix  coefficients,  and  right-hand  side 
coefficients  are  identical  to  those  used  by  LFM-1.  Following  input 
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of  these  data,  initial  lower  and  upper  bounds  XLB(J),  XUD(J)  must 


| 

be  specified  for  the  decision  variables  in  15F5.0  format.  The 
final  input  card  for  each  subproblem  contains  values  for  the  variables 
IBLB(lNPROB),  IBUB(lNPROB)  in  2110  format,  where 

IBLB(lNPROB)  = lower  bound  on  the  allocation  variable  associated 
with  subproblem  number  INPROB. 

IBUB(INPRQB)  = upper  bound  on  the  allocation  variable  associated  with 

subproblem  number  INPROB.  j 

The  input  for  a sample  run  of  DSLC  is  given  in  Appendix  II, 
following  tne  listing  of  the  program. 
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3-2.  Restrictions  Relevant  to  the  Use  of  DSLC 

As  currently  configured,  the  following  restrictions  apply 

to  the  input  data  and  problem  size  and  complexity  for  DSLC: 

1.  NSUBS  must  be  .LE.  10. 

2.  The  first  row  in  each  subproblem  must  correspond  to  the  objective 
row;  the  second  row  in  each  subproblem  must  correspond  to  the 
linking  constraint. 

3.  No  right-hand  side  value  should  be  specified  for  the  linking 
constraint  row  in  each  subproblem.  Prior  to  computing  the  para- 
metric LP  solution  for  a subproblem  in  Phase  1,  DSLC  automatically 
initializes  the  linking  constraint  right-hand  side  to  the  specified 
lower  bound  IBI£(INPR0B)  on  the  allocation  variable  associated 
with  the  subproblem. 


in 


1 ! 


I 


k.  The  number  of  rows  (including  objective  and  linking  constraint 


rows)  in  each  subproblem  must  be  .LE.  22 } the  number  of  decision 


variables  must  be  .LE.  50  in  each  subproblem. 


5.  The  number  of  nonzero  objective  and  constraint  coefficients 


must  be  .LE.  500  in  each  subproblem}  the  total  number  in  all 


subproblems  must  be  .LE.  1000. 


6.  Tne  modified  concave  and  piecewise  linear  parametric  objective 


function  generated  in  SUBROUTINE  PHASEl(j)  must  have  .LE.  50 


linear  segments  in  each  subproblem. 


7.  The  number  of  distinct  subproblem  solutions  generated  must  be 


•LE.  200  for  eacn  subproblem. 


8.  The  list  of  stored  nodes  in  tne  branch-and -bound  searcn  for  on 


optimal  allocation  of  the  linking  resource  must  never  exceed  200 


nodes  in  length. 


9-  The  list  of  stored  nodes  in  the  branch-and -bound  searcn  for 


optimal  subproblem  solutions  must  never  exceed  500  nodes  in 


length  for  any  subproblem. 


3.3.  Description  of  Subprograms 


1.  BLOCK  DATA — From  LPM-1>  same  as  for  BB.  (See  Section  2.3  and 


Tomlin  (1975).) 


2.  SUBROUTINE  INPUT (IFFR0B) —From  LPM-1;  reads  in  subproblem 


data.  (See  Tomlin  (1975) •)  Modified  to  read  in  lower  and 


upper  bounds  on  tne  decision  variables  and  on  tne  allocation 


variable  associated  with  the  given  subproblem.  Also  stores 


subproblem  data. 
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Parameters : 

IFPROB  (Output,  INTEGER*4)  Subproblem  identification 
number  (=  INPROB) . 

3-13.  SUBROUTINES  FTRAN(IPAR),  BTRAN,  FORMC,  PRICE,  CHUZR,  WRETA, 
SHIFTR(I0UD,  INEW),  INVERT,  UNPACK (IV),  SHFTE,  UPBETA— From 
LM-1;  same  as  for  BB.  (See  Section  2.3>  and  Tomlin  (1975)-) 

14.  SUBROUTINE  NORMAL — From  LPM-1;  directs  execution  of  primal 
simplex  method.  (See  Tomlin  (1975)*)  Modified  for  bounded- 
variables. 

15*  SUBROUTINE  BANDB(INITBD) — From  BB;  directs  execution  of  branch- 
and-bound  searen  for  an  optimal  integer  solution  to  given  sub- 
problem. (See  Section  2.3*) 

Parameters : 

INITBD  (Input,  INTEGER*!-)  Initial  lower  bound  estimate  for 
maximum  subproblem  objective  value.  Value  of  INITBD  is 
specified  by  SUBROUTINE  GETL3D(J) . 

16-21.  SUBROUTINES  DCHUZR,  DCHUZC,  TESTX,  PENLTS,  BRANCH,  BKTRAK — 

From  BB  (See  Section  2.3) • 

22.  SUBROUTINE  AIOCTE(lPAR,  IRHS)— Solves  Master  Problem  (concave- 
separable  integer  program;  see  Kochman  (197c),  Chapter  4). 

When  current  node  in  allocation-variables  search  tree  was 
obtained  by  forward  brancn,  the  Master  Problem  is  reoptimized 
by  starting  from  the  previously  optimal  solution  and  reallocat- 
ing IRHS  units  of  the  linking  resource. 


16 


Parameters: 


IPAR  (Input,  INTEGER*^)  Indicates  whether  current  node  in 
allocation-variables  search  tree  was  obtained  by  forward 
branch  (IPAR  = l),  or  by  backtracking  (IPAR  = 0). 

IRHS  (Input,  INTEGER*!*)  Amount  of  slack  in  linking  constraint 
in  the  optimal  solution  to  last  subproblem  solved;  used  only 
when  IPAR  = 1. 

23.  SUBROUTINE  DQMCHK(J,  K) — Compares  current  allocation  (from 
SUBROUTINE  AL0CTE(IPAR,  IRHS))  with  previously  examined  alloca- 
tions in  each  unfixed  subproblem  to  determine  if  the  optimal 
solution  corresponding  to  the  current  allocation  is  already 
known  for  any  subproblem. 

Parameters : 

J (Output,  INTEGER*!*)  Indexes  first  subproblem  found  for 
which  optimal  solution  corresponding  to  current  allocation 
is  already  known. 

K (Output,  INTEGER*!*)  Indexes  the  previously  examined  alloca- 
tion in  subproblem  J which  leads  to  same  optimal  solution 
as  would  current  allocation. 

24.  SUBROUTINE  LDDATA(J) — Loads  data  for  subproblem  J into  appro- 
priate storage  locations  for  solution  by  SUBROUTINES  NORMAL 
and  BANDB(INITBD). 

Parameters : 

J (Input,  INTEGER*!*)  Indexes  the  subproblem  selected  to 
be  solved  next. 
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25.  SUBROUTINE  GETLBD(J) — Compares  current  allocation  in  subproblem 
J with  previously  examined  allocations  to  determine  an  initial 


r 
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lower  bound  on  the  maximal  objective  value  in  subproblem  J 
under  the  current  allocation. 

Parameters : 

J (input,  INTEGER*!*)  Indexes  the  subproblem  selected  to 
be  solved  next. 

26.  SUBROUTINE  SAVER(J) — Stores  allocation  and  solution  informa- 
tion for  subproblem  J. 

Parameters : 

J (input,  INTEGER* !*)  Indexes  last  subproblem  solved. 

K (input,  INTEGER* 4)  Indexes  a previously  examined  alloca- 
tion in  subproblem  J.  The  current  allocation  in  subproblem 
J is  fixed  at  the  level  of  the  K^1  allocation  by  the  branch- 
ing procedure. 

27.  SUBROUTINE  DMBRAN(J,  K) — Branches  on  allocation  variables 
in  subproblem  J.  (See  Kochman  (1976),  Chapter  5 for  a 
discussion  of  the  branching  procedure.) 

Parameters : 

J (Input,  INTEGER*!*)  Indexes  subproblem  in  which  branching 
is  done. 

K (input,  INTEGER*!*)  Indexes  a previously  examined  alloca- 
tion in  subproblem  J.  The  current  allocation  in  subproblem 
J is  fixed  at  the  level  of  the  K allocation  by  the 
branching  procedure. 
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28.  SUBROUTINE  BBKTRK — Backtraces  in  allocation-variables  search 
tree  to  locate  next  unfathomed  node  to  be  examined-  Last- 
in-first-out  (LIFO)  selection  rule  used. 

29.  SUBROUTINE  OUTSOL(lNC) — Outputs  final  solution  information. 
Parameters : 

DIMENSION  INC (10) 

INC  (input,  INTEGER*^)  Array  containing  optimal  solution 

information.  For  J = 1,  2,  . ..,  NSUBS,  INC(J)  = k if  the 

"til 

solution  in  subproblem  J corresponds  to  the  Ku  solution 
obtained  in  subproblem  J. 

30.  SUBROUTINE  PHASEl(J) — Solves  subproblem  J as  a linear  program 
parametrically  in  the  linking  constraint  right-hand  side. 
Simultaneously  modifies  the  resulting  concave  and  piecewise 
linear  parametric  objective  function  to  render  all  breakpoints 
integral.  (See  Kochman  (1976),  Chapter  4.) 

Parameters : 

J (Input,  INTEGER*^)  Indexes  next  subproblem  to  be  solved. 

3.4.  Description  of  Output 

The  following  output  is  generated  by  DSLC.  After  each  subproblem 
J has  been  solved  parametrically  in  SUBROUTINE  PHASEl(j),  the 
(all-integer)  breakpoints  IBP(K,  J)  (K  = 1,  2,  ...,  NIAMDA(J)  + l) 
of  the  resulting  parametric  objective  function  are  printed 
out,  where 


19 


IBLB(J),  when  K = 1 


IBP(K,  J)  = 


H 


IBUB(J),  when  K = NLAMDA(J)  + 1, 


and  where 

NLAMDA(j)  = number  of  linear  segments  in  the  concave  and  piecewise 
linear  parametric  objective  function  for  subproblem  J. 

The  second  line  of  output  for  each  subproblem  displays  RLAMADA(K,  J) 

(K  = 1,  2,  ...,  NLAMDA(J)),  where 

"fch 

RLAMDA (K,  J)  = slope  of  the  K linear  segment  of  parametric  objective 
functions  for  subproblem  J. 

The  third  line  of  output  for  each  subproblera  gives  ZNAUT(J),  where 

ZNAUT (J ) = value  of  parametric  objective  function  for  subproblem 

J at  IBLB(J). 

Next,  the  output  generated  in  Phase  2 of  the  decomposition  algorithm 
is  printed.  Whenever  a subproblera  is  (re)solved  explicitly  by 
SUBROUTINES  NORMAL  and  BANDB(lNITBD) , one  line  of  output  is  generated; 
this  line  takes  the  form. 


SUB  J,  SOL  K:  X1  Xg,  ...,  Xn, 
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where 


= subproblem  identification  number 

= identification  number  associated  with  the  given  solutions 


M 


! 

L. 


J 
K 

for  subproblem  J. 

X^  = optimal  column  values,  l = 1,  2,  . ..,  n, 

n = number  of  columns  in  subproblem  J. 

As  in  the  branch-and-bound  code  BB,  the  optimal  solution  to  the  sub- 
problem is  printed  out  in  the  order  (l)  objective  function  value, 

(2)  slack  variables,  and  (3)  decision  variables.  It  should  be  noted 
that  when  the  lower  bound  on  the  maximal  objective  value  generated 
in  SUBROUTINE  GETLBD(J)  equals  the  optimal  objective  value  for  the 
given  subproblem,  no  incumbent  solutions  are  found  in  SUBROUTINE 
BANDB(INITBD) . In  this  case,  only  the  optimal  objective  function 
value  and  linking  constraint  slack  are  printed  out;  zeroes  are  printed 
for  the  remaining  column  values.  The  remaining  optimal  column 

values  may  be  recovered  through  the  solution  identification  number 

"fch 

K,  by  referring  to  the  output  for  subproblem  J when  the  K 0 solution 
was  first  generated. 

In  addition  to  the  subproblem  solution  information,  whenever 
a new  incumbent  solution  to  the  overall  block  angular  problem  (P)  is 
discovered,  the  computation  time  required  to  reach  the  solution  and 
the  corresponding  incumbent  objective  value  IZINC  in  (P)  are  printed. 

When  all  computations  have  been  completed,  the  overall  optimal 

» 

solution  to  (P)  is  printed.  The  solution  in  each  subproblem  is 
identified  by  the  solution  identification  number.  The  optimal  column 
values  may  be  recovered  by  referring  to  the  output  of  subproblem 
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solution  information  generated  in  Phase  2 of  the  algorithm.  Finally, 
the  maximal  objective  value  to  (P)  is  printed,  followed  by  the  output 
of  various  parameters  related  to  the  performance  of  DSLC  on  the 
problem.  Ihe  output  from  a sample  run  of  DSLC  is  given  in  Appendix 
II,  following  the  listing  of  the  program. 

3*5.  Further  Comments 

As  currently  written  the  Fortran  code  DSLC  contains  approxi- 
mately 1,950  source  statements.  All  significant  array  storage  is 
done  in  COMMON.  In  all,  approximately  65K  bytes  of  core  storage  are 
required  by  the  five  COMMON  blocks.  When  compiled  on  Stanford's 
IM  370/168  under  IBM's  FORTRAN-H-Extended  compiler,  with  level  two 
optimization,  approximately  126K  bytes  of  core  are  required  for  all 
instructions  and  data. 

The  computer  program  DSLC  was  written  by  the  present  author 
in  the  course  of  completing  his  doctoral  dissertation  in  the  Depart- 
ment of  Operations  Research,  Stanford  University.  Computational 
results  (solution  times)  obtained  on  several  test  problems  are 
presented  in  Chapter  6 of  Kochman  (1976).  DSLC  was  last  revised  in 
September  1976. 

The  Decomposition  Code  DMLC 
Main  Program  and  Input  Requirements 
The  main  program  for  the  code  EMLC  coordinates  the  application 
of  the  two  phafees  of  the  decomposition  algorithm  for  block  angular 
integer  programs  with  multiple  linking  constraints.  As  in  DSLC,  the 
problem  data  is  input  and  the  computations  required  to  construct  the 
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Relaxed  Master  Problem  ere  executed  in  Phase  1.  In  Phase  2,  the 
branch-and-bound  search  for  an  optimal  allocation  of  the  linking 
resources  is  carried  out.  The  major  differences  between  the  codes 
DSLC  and  EMLC  are  in  the  methods  used  to  construct  and  solve  the 
Master  Problem;  see  Chapter  4 and  Chapter  5,  Section  1 in  Kochman 
(1976)  for  a discussion  of  these  methods. 

The  first  card  of  input  for  DMLC  contains  values  for  the 
variables  NSUBS,  NLINK,  IPAEM,  and  IZINC  in  4110  format.  These 
variables  have  the  following  significance: 

NSUBS  = number  of  subproblems 

NLINK  = number  of  linking  constraints 


IPARM 


V ‘ 


IZINC 


= parameter  determining  which  subproblem  selection 
rule  is  used  in  Phase  2.  Identical  to  IPARM  in 
the  code  DSLC;  see  Section  3.1. 

= lower  bound  estimate  for  maximum  overall  objective 
value  in  (P) . 


Ihe  second  card  of  input  for  EMLC  contains  values  for  the  array  IB(l) 
in  5110  format,  where 


IB(I) 


XV 

= right-hand  side  for  I linking  constraint, 
I = 1,  2,  ...,  NLINK. 


Following  these  two  cards,  the  problem  data  for  the  individual 
subproblems  is  read  in  sequentially.  For  each  subproblem,  the  first 
card  of  input  contains  the  value  for  the  variable  INPROB  in  14  format, 
where 
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3.  The  initial  right-hand  side  values  specified  for  the  linking 
constraints  in  each  subproblem  must  be  chosen  so  that,  correspond- 
ingly, each  subproblem  has  a feasible  and  finite  optimal  LP 
solution. 

4.  The  number  of  rows  (exclusive  of  objective  and  linking  constraint 

rows)  in  each  subproblem  must  be  . LE.  10;  the  number  of  decision 
variables  must  be  .LE.  20  in  each  subproblem. 

5.  The  number  of  nonzero  objective  and  constraint  coefficients  must 

be  . LE.  500  in  each  subproblem;  the  total  number  in  all  subproblems 
must  be  .LE.  1000. 

6.  The  number  of  distinct  sets  of  optimal  dual  multipliers  generated 
in  each  subproblem  must  be  .LE.  20. 

7.  The  number  of  distinct  allocations  explicitly  examined  in  each 
subproblem  must  be  . LE.  40. 

8.  The  list  of  stored  nodes  in  the  branch-and-bound  search  for  an 
optimal  allocation  of  the  linking  resources  must  never  exceed 
200  nodes  in  length. 

9-  The  list  of  stored  nodes  in  the  branch-and-bound  search  for 
optimal  subproblem  solutions  must  never  exceed  500  nodes  in 
length  for  any  subproblem. 


4.3-  Description  of  Subprograms 

1-21.  BLOCK  DATA  and  SUBROUTINES  INPUT (IFPROB) , FTRAN(lPAR),  BTRAN, 
FORMC,  PRICE,  CHUZR,  WRETA,  SHIFTR(I0LD,  I NEW) , INVERT, 

UNPACK (IV),  SHFTE,  UPBETA,  NORMAL,  BANDB(INITBD) , DCHUZR, 
DCHUZC , TESTX,  PENLTS,  BRANCH,  BKTRAK—  Same  as  for  DSLC;  see 
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Section  3.3.  SUBROUTINE  INPUT(IFPROB)  modified  for  multiple 
linking  constraints. 

22.  SUBROUTINE  AIOCTE(IPAR) — Obtains  linear  programming  solution 
to  Relaxed  Master  Problem;  see  Kochman  (1976),  Section  5-1. 

Calls  SUBROUTINE  LDMSTR  (if  necessary)  to  set  up  problem 

data  for  solution  by  SUBROUTINE  NORMAL.  Also  calls  SUBROUTINE 
TESTZ  to  round-off  optimal  LP  solution. 

Parameters: 

IPAR  (Input,  INTEGER*1*)  Parameter  indicating  whether 
(IPAR  = 0)  or  not  (IPAR  = l)  any  subproblem  has  been  explicitly 
solved  since  last  Master  Problem  solution.  'A/hen  IPAR  = 0, 
the  data  for  the  Master  Problem  must  be  reloaded  from 
scratch  (SUBROUTINE  LDMSTR)  into  the  storage  locations 
required  for  SUBROUTINE  NORMAL.  When  IPAR  = 1,  only  the 
revised  allocation-variables  bounds  need  be  reloaded. 

23.  SUBROUTINE  LDMSTR — Loads  data  for  Relaxed  Master  Problem 
into  appropriate  storage  locations  for  solution  by  SUBROUTINE 
NORMAL. 

24.  SUBROUTINE  TESTZ — Tests  LP-optimal  solution  to  Relaxed  Master 
Problem  for  fathoming.  If  not  fathomed,  the  solution  is 
rounded  to  obtain  an  integer-feasible  solution  to  the  Relaxed 
Master  Problem.  See  Kochman  (1976),  Section  5*1  for  a discus- 
sion of  the  rounding  procedure. 

25-27.  SUBROUTINES  D0MCHK(J,  K) , LDDATA(J),  GETLBD(J) , — Same  as 

for  DSLC  (see  Section  3-3).  Modified  for  multiple  linking 
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constraints. 
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28.  SUBROUTINE  PISAVR(J) — Tests  current  LP -optimal  solution  to 

subproblem  J to  determine  if  the  set  of  optimal  dual  multipliers 
associated  with  the  linking  constraints  is  distinct  from 
previous  sets;  stores  these  multipliers  if  distinct. 

Parameters: 

J (Input,  INTEGER*!)  Indexes  subproblem  solved  under 
current  allocation. 

29-32.  SUBROUTINES  SAVER  (J) , EMBRAN(J,  K) , BBKTRK,  O'JTSOL(lNC)  — Same 
as  for  DSLC  (see  Section  3.3).  Modified  for  multiple  linking 
constraints. 
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4.4.  Description  of  Output 

The  format  for  output  from  DMLC  is  identical  to  that  for 
DSLC,  with  the  obvious  exception  that  no  parametric  linear  programm- 
ing solution  information  for  the  subproblems  is  generated  in  DMLC. 

The  output  from  a sample  run  of  DMIC  is  included  in  Appendix  III, 
following  the  listing  of  the  program. 

4.5.  Further  Comments 

As  currently  written,  the  Fortran  code  DMLC  contains  approxi- 
mately 2,000  source  statements.  All  significant  array  storage  is 
done  in  COMMON.  In  all,  approximately  50K  bytes  of  core  storage 
are  required  by  the  five  COMMON  blocks. 

The  computer  program  EMLC  was  written  by  the  present  author 
in  the  course  of  completing  his  doctoral  dissertation  in  the  Department 
of  Operations  Research,  Stanford  University.  DMLC  was  last  revised 
in  September  1976. 


REFERENCES 


Beale,  E.M.L. , 1968,  Mathematical  Programming  in  Practice.  Wiley 
and  Sons,  Inc.,  New  York. 

Beale,  E.M.L. , and  R.E.  Small,  1965>  'Vixed  Integer  Programming  by 
a Branch-and -Bound  Technique,"  Proceedings  of  the  Third 
IFIP  Congress.  Vol.  2,  pp.  b^O-h^l. 

Dakin,  R.J.,  1965,  "A  Tree  Search  Algorithm  for  Mixed  Integer 

Programming  Problems,"  Computer  Journal.  Vol.  8,  pp~  250-255. 

Kochman,  G.A.,  1976,  "Decomposition  in  Integer  Programming,"  Technical 
Report,  Department  of  Operations  Research,  Stanford  University. 

Little,  J.D.C.,  K.C.  Murty,  B.W.  Sweeney,  and  C.  Karel,  1965,  "An 
Algorithm  for  the  Travelling  Salesman  Problem, " Operations 
Research.  Vol.  11,  pp.  972-989. 

Tomlin,  J.A.,  1970,  "Branch-and-Bound  Methods  for  Integer  and  Non- 
Convex  Programming, " in  Integer  and  Nonlinear  Programming. 

J.  Abadie,  ed..  North  Holland,  Amsterdam. 

Tomlin,  J. A.,  1975>  "Users  Guide  for  LFM-1,"  Systems  Optimization 
Laboratory,  Department  of  Operations  Research,  Stanford 
University. 


28 


r1 ' 1 • - ■ « ■ 1 1 l . _ 


BR  ANCh-AND-bGUNC  ROUTINE,  BB 

PURE— I NT  EGER  LINEAR  PKUGRAMM  ING  IN  GENERAL  INTEGER  VARIABLES 
GARY  A.  KOCHMAN  (OPERATIONS  RESEARCH),  SEPT.  I97t,  MOO  1 


IMPLICIT  REALS'.  ( A ,C  , E-H  , 0,  P , R-  * , Z)  . REALMS  (B,0,X,Y), 
l INTEGER*-.  (l-N,0) 

COMMCN/TIMERg/  TEIRST.TOPT.IFVAL, ITOT 

MA  IN  PROGRAM 

COORDINATES  APPLICATION  OF  INPUT,  LP,  BRANCH- AND-BOUND, 
AND  uUTPuT  SUBROUTINES 


START  TIMER 
10  CALL  PCLOCK ( ITCT ) 

; INPUT  PROBLEM  DATA 

CALL  INPuT ( IFPRUb, INITBO) 

IP  (IFPkUls  .E«.  0)  GO  TO  1000 
ITSINV  = 99999 

SGLVE  LP  RELAXATION  OF  ORIGINAL  PROBLEM 
CALL  NORMAL  1 1 TSi NV  ) 

APPLY  BRANCH- ANO-BOJNO  SEARCH  ROUTINE 
CALL  EANUB(  INI TBU,  I TSINV ) 

STCP  TIMER 

CALL  PCLUc K ( JT  IME,  ITOT) 

TTOT  = JTIME/1U0. 

WRITE  (6,1)  TTCT 

1 FORMAT  (■  TOTAL  SOLUTION  TIME  =»,F7.2,*  SECONDS* 
: OUTPUT  OPTIMAL  SOLUTION 

CALL  WRAPUP 
GO  TO  10 
10CC  STOP 
ENO 

BLOCK  OAT  A 


initializes  global  program  constants 

SUBROUTINE  ADAPTED  FROM  LINEAR  PROGRAMMING  CODE  LPM-l,  WRITTEN 
BY  J.A.  TuMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 


IMPLICIT  kEAl**  (A 
1 INTEGER** 

COMMC  N/ J LOCK/  ZTOL 

1 CEO, 

2 UE  , U 
REAL  ZTOLtE/l.E-S/ 

l ZTulSM/I.E-10 
INTEGER**  NRMAX/6U 
I NTE  SEP**  QkJ/'RL« 
10E0/' EOF  */,yBL/' 
2UZ/'  l ♦ / , U 1/ • I 
3QB/*B  */,OC/*C 
*Q0/*0  */,yK/*K 

END 

SUBROUTINE  INPUT)! 


,C,c-H,0,P,R-W, Z)  , ReAL*G  (B,D,X,Y), 

( i-n, y ) 

Zc.ZTOLPV.ZTCOST, ZTGLR J , ZTOL SM ,URC , QMA , J6A  ,QF l , 
OBL.OA ,gPL ,UM I ,CZ ,01 »0F, CN.OU, NRMAX ,NE MAX , Qd, Q C, 
H,UL,yO,yR,UM ,UG,NT MAX 

.ZTOLPV/l.E-*/, ZTC0ST/i.E-3/,ZT0LR J/l.E-*/ , 

/ 

/,NTMAX/lOUO/»NEMAx/*JOO/ 

•/  , JMA/'MATR*/  ,U  EA/'BAS  I • / ,<JF  I/'EIRS'  /, 

*/,yA/* A ' /, QPL/'  ♦ • /, OMI / 1 - •/, 

■/,UE/*F  * / , QN  / * N */,(JU/*U  •/, 

'/•QE/'E  * / , OH /•  H • / * QL  / * L •/, 

'/ * QM  / ' M */,QG/'G  '/ 

EPROB, INITBD) 


INPUTS  PRoBLr.M  LATA 

SUBROUTINE  AUAP TEU  FROM  LINEAR  PRUGRAMMING  CODE  LPM-l,  WRITTEN 
BY  J.A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 
"DESCRIPTION  OF  PARAMETERS******** 

IFPWOb  * INPROB  = NJNZERU  PROBLEM  I OEN  T IF  IC  AT  I JN  NUMBER ( JUTPU T ) 
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I N I Too  = INITIAL  LOWER  BOUND  ESTIMATE  POP  MAXIMAL  OBJECTIVE 
VALUE  (OUTPUT) 

IMPLICIT  KEAl*4  tA,C,E-rt,a,P,R-v.,Zl  , RcAL*8  IB,D»X,Y>, 

1 INTEGER*4  ( l-N, 0) 

I NT  EG  FP  JH,KIUBA  S.LA.LE ,IA, IE 

DOUBLE  PRECISION  E ( 4000 ) , ATEMP1 , A TEMP2 
PEAL  A ( 2u00) 


COMMON/ BlOCK/  iTOL  ZE,  ATOLPV,  ZTCOST,  /rULR  J,  ZTOLSM  ,OKO,  qma  ,ciba  ,UF  I , 

1 GEO,  OBl.JA  ,QPL,gMI,OZ  ,01  , OF,ON,QU,  NPMAX , NEMAX , 00, OC, 

2 wE ,JH»0L*0O,Gft»0M,0G» NT  MAX 

COMMON  DSUM.OPRuO,  CV.UE, OP,  6 1 60 ) , X( 60) ,Y ( 6 0)  ,Y TEMP (60 ) , A,E, 

1 SUM  INF, IC NAM <122, 2 ) , NAM E ( 20  I ,N TEMPI  20  I, MS  TAT, I OB J, IKOWP, 

2 I VlN,I  VUUT,  I TCNT  , INVFRO,  I TRP  RQ  , l Fr  E 2,  JCOL  P,  Nr  Ohi , NCGL  , NEL  E M, 

3 NETA.NLELfcM  ,NLETA .NUELEM ,NUE  IA , Jri ( o 0 ) ,KIN8AS( 122) , L A ( I 2l 1 , 

A LE  I 1002  ),  I A ( 2000  ) , IE  ( 4J00)  ,X  10  1 122  ) ,X'D3  (1  22  ) 


00  10  1=1,60 

1C  Bill  =0. 

DO  20  J= l , 122 
2 C KINBAS(J)  = 0 
NROW  = 0 
I TCNT  = 0 
ICSi=C 
ICS2=C 

READ  <5, /OOO, ENQ=9999)  I NPR06 , I 00 J , IN VFRU, I TRFR J , I Nl  T 60 
7CCC  FORMAT  (t  14, 110) 

IFPRCB  = 1NPK06 
IF  (IFPKU8  .EU.  0)  RtTJAN 
IF  I ICBJ  .EC.  Cl IOBJ  = 1 
IF  (INvFrQ  ,£u.  0) INVFRO  = 99)99 
IF  ( I TRF R (J  .EC.  01  ITRFRJ  -=  99999 
WRITE (t.BulO)  IF  PR  08 
8010  FORMAT  (9H1PRU6LE/M  , It) 


5 Re  AD  I 5,  loll  Ki  ,K2, KJ,K4,  ( NAME! I ) , 1=  1,4) , ATEMP1,N AMEI5 ) , N AME  ( 6 ) , 
1ATEMP2 

IC1  FORMAT  It A1  ,2ag,lX,cA4,2X,F12.4,3X,2A4,?X,F12.4) 


IFIKl 

• t ' J • 

CE)  Gu 

TO  tOJ 

IFIKl 

• c.  w • 

C8L ) GU 

TO  80 

IFIKl 

• £.»*• 

CN)  GO 

TO  100 

IFIKl 

• tw. 

CP  .AND 

. K2  * EC  . 0 U ) 

L = l 

IFIKl 

.sg. 

Ok  .AND 

. K2  .Eg.  cu) 

GO 

TO 

150 

IFIKl 

• tw  • 

CC)  L =2 

IFIKl 

CC)  GO 

TO  180 

If  (K1 

.eg. 

QB  .AND 

. K2  .Eg.  0 A ) 

L =3 

IFIKl 

• t<4. 

wO  .AND 

. K2  .Eg.  wAl 

GO 

TO 

180 

IFIkI 

• EC  • 

wF  .AND 

. K2  .Eg.  OH) 

L=4 

IFIKL 

• Eu  • 

CK  .AND 

. K2  .Eg.  UH) 

GO 

TO 

150 

BO  GO  T01210, 820,41 0, BOO) ,L 


ICC  NTEMP(l) 
NT0MPI2) 
15C  CCNTINL'E 

GO  TU  5 


NAME! 3) 
NAM  El  4) 


2 1C  NRUw=  NPuW  ♦ 1 
NCOL=NRl>« 

I C N AM ( NRu  « , 1 1 = NAMEll) 


I 


ICNAM  (NHbW  ,21  = ,,AMEI2) 


TEST  ROW  TYPE 


126. 

IFIK2.Ew.wL 

.OR. 

K3.tg.QL) 

GO 

TO 

2 20 

12?. 

I F < K2  . tu. wE 

• OR. 

K 3. EO  # QE ) 

GO 

TO 

2 30 

125. 

IF ( K2  . EC . wC 

•OK. 

K 3 • cQ  . Q o ) 

uO 

TO 

2 40 

120. 

I F < K2  • FC • wN 

• OK. 

K 3.EW.WN) 

GO 

TO 

2 50 

130. 

GO  TO  23 w 

131. 

22  C 

XLP (NRC»J  = 

0. 

132  . 

XllO  ( NROwJ  = 

1.E4 

133. 

GO  TO  250 

134. 

23C 

XLBINRCbJ  = 

0 • 

135. 

XJBINRUWi  = 

0. 

136. 

GO  TC  250 

13  ? • 

24C 

XEB(NRCw)  = 

0. 

133  . 

XU3 (NROw ) = 

1 • £4 

133. 

A < N|RCV> ) ^ - 

1. 

140. 

GO  TO  2oO 

141. 

250 

A(NROW)  = l 

. 

142. 

26C 

IA(NRCW)  = 

NROW 

L A ( NR  C W J = NROW 
JFUNPCH  = NKOW 
KINHASINKGw)  = NRG« 
N EL EM^NRUa 
GC  TO  ■, 

MATRIX  ELcMtNTS 


J = 3 
K = 4 

IF  ( 0 APS  ( AT  tMP  i ) .EE.  ZTcLCEl 
GO  TC  324 
J = 5 
K = 6 

ATEMP  1=AIEMP2 

GO  TO  330 
CONTINUE 

IF  ( N AMc. ( i 1 .cG.  1CS1  .AND.  N 


GO  TC  32i 


1CS1  .AND.  NAME12J  .EG.  ICS2I  GO  TO  330 


TEST  FUR  SPLIT  VECTOR 
00  325  I = l.NCGL 

IF  (NAME! I I .Nfc.  I CNAMI I » li I GO  TO  325 
IF  (NAPc(2J  .NE.  ICNAMIIjAM  GC  TO  325 
WRITE  ( 6 » B 2 5 0 ) NAME <1) ,NAM£I2) 

FORMAT  ( 1<,H03PL  IT  VECTOR  ,2A4) 

continue 

NCOL  = NCUL  + 1 
ICS1  = NAMEU) 

ICS?  = NAME  121 
ICNAMINCOL , iJ  = ICS1 
I C N AM ( NCCiL  1 2 1 = IC S2 
LAINCCL)  = NELEM  + l 

TEST  FUR  kuW  MATCH 


33C  DO  '34 C I = i.NROw 

IFINAMF(J)  .NE.  ICNAMlI.iJ  .uR.  NAMEIN)  . N E . ICNAM (1 , 21 ) GO  TO  340 
NELEM  = NELEM  + 1 
I A ( NE  LEM J = I 


244.  IF)NARE(J)  .NE.  ICNAM(I.I)  .UR.  NAME(K)  .NE.  ICNAM(  I , 2)  )60  TO  ^0 

245.  8(1)  = A I EMPl 

246.  535  I F ( K .GT.  5)  GU  TG  5 

24T.  (F ( 0ABS( AT6MP2 ) .lb.  ZTOLZE)  GO  TO  5 

245.  J * 5 

249  • K = 6 

250.  ATEMP1  = ATEMP2 

251.  GO  TO  530 

252.  540  CONTINUE 

253.  WRITE (6.8300)  NAME ( J) , NAME < K I 

254.  STOP 

255.  C 

256.  C ENu  UF  INPUT 

25* . C 

258.  6CC  NSC Cl  = NCOl  - NKUW 

259.  K = NROW  ♦ 1 

260.  C INPUT  lUWEA  ANO  UPPER  BOUNDS  ON  OECISION  VARIABLES 

261.  READ  (5,650  (AlBiJ),  J=K,NCOl) 

26 2.  READ  ( 5, o5C)  (XUB(J),  J-K,NCOL) 

263.  65C  FORMAT  (15FP.0) 

264.  NELEM  « NElcM  - NR CW 

265.  REIEM  = NELEM 

266.  RDENS  * REIEM/ (NRUW*NSC01) 

267.  RETURN 

268 . 9999  IFPRCB  = 0 

269.  RETURN 

270.  ENO 

271.  SUBROUTINE  FTRAN(IPAk) 

272.  C 

273.  C PERFORMS  FORWARD  TRANSFORMATION  ON  COLUMN  STORED  IN  VECTOR  V 

274.  C S'JRRuoT  INfc  ADAPTED  FROM  1 1 NEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 

275.  C BV  J.A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

276.  C********DESCRIPT10N  OF  PARAMETERS******** 

277.  C IPAR  = PARAMETER  INDICATING  WHICH  ETA-VECTORS  MATRIX  COLUMN 

278.  C IS  TU  M JPDATEO  BY  (INPUT) 

27».  C«* ************ **•*•**«• ****************** 

280.  C 

281.  IMPLICIT  R E Al*4  ( A ,C,E-H,U,P,K-W, 2)  , RE AL*8  (B,D,X,Y), 

282.  1 INTEGEK*4  (I-N.U) 

283.  I NT  EGFF  *2  JH,K1NBAS,LA,LE,IA,IE 

234.  DOUBLE  PRtCISION  EI400D) 

285.  REAL  A(2000) 

286.  C 

2e7.  COMMCN/aiUCK/  ZTOL  ZE.ZTULPV, ZTCCST, ZTJLRJ.ZTOLSM ,QPG,  OMA.OBA ,QF  I , 

288.  1 wE G » CBl , OA  » QPL  , QM  I , QZ  » V l »QF  , QN.Q'J,  NPMAX  »NEMAX » QB»  wC» 

289.  2 U£,WH,JL,QO,OR,UM,OG»NTMAX 

280.  C 

291.  COMMON  USUM,CPkC0,CY,DE«UP,B(60),X(bO),Y(60) ,YTEMP(oO),A,E, 

292.  1 SUM  INF, IC  NAM (122, 2) .NAME (20) ,NTEMP<  20  I ,MS  TAT, t OB J , IROWP, 

293.  2 IVIN.IVOUT, ITtNT, INVFRO, I TRF RU , l FF E Z, JCOL P, NR UW, NCOl , NELE M, 

294.  3 Nt  TA.NL EL  EM  ,NL  E T A , NUEl  E M ,NUE  T A , JH  ( 60)  , K I N B A S ( 1 22 ) , L A U22 ) , 

295.  4 Lt(10u2),IA(2000),IE(4000),XL8(122),XUB(122> 

296.  C 

297.  GO  TO  (100,110),  IPAR 

298.  ICC  NFE  =■  1 

299.  NLE  = NETA 

300.  GO  TO  200 

301  . 1 10  NFE  * NLE  TA  ♦ 1 

302.  NLE  » NcT A 

303.  2CC  IF  ( NFE  .GT.  NLE)  GO  TO  9O00 

304.  DO  1000  in  = NFE.Nlt 


36 


305. 

306. 

307. 

308. 
300. 
313  . 
311  . 

312. 

313. 
310. 
315. 
31o. 
317. 
313. 

319. 

320. 
321  . 

322. 

323. 
320. 

325. 

326. 

327. 
328  . 
320. 
330. 
331  . 
332. 
333  . 
330. 

335. 

336. 

337. 
338  . 
339. 

300  . 

301  . 

302. 

303. 
300. 

305. 

306. 
307. 
?08  . 
309  . 
350. 
351  . 
252. 
353. 
350  . 

355. 

356. 

357. 

358. 

359. 

360. 

361  . 

362  • 
363. 
360. 
365  . 


LI  = LEI  no 

KK  = LEI IK+l)  ~ 1 
IPIV  = IE1LL) 

DY  = Yl IPI V) 

OY  = CY/EILL) 

YUP1V1  = DY 

IE  (KK  .LE.  LLJ  GO  TO  1000 
LL  = LL  + 1 
00  50 C J = LL » KK 
IR  = IE(J) 

Y( IR)  = Y(  IR)  - t(  J)  * DY 
5CC  CONTINUE 
ICCC  CONTINUE 
5CCC  CCNTINLE 
RETURN 
END 

SUBROUTINE  BTRAN 

c 

C PERFORMS  BAuKwARO  TRANSFORMATION  ON  COLUMN  STORED  IN  VECTOR  Y 

C SUBROUTINE  ADAPTED  FROM  LINEAR  PROGRAMMING  CODE  LPM-I,  oRITTEN 

C BY  J. A . TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 

IMPLICIT  KEAL*0  1 A , C ,£-H , 0, P , K- A , Z)  , REAL* 8 <B,D,X,YJ, 

1 I NTtGER  *0  <I-N,0) 

I NTEGEP*2  JH,K1N8AS,LA,LE , IA,  IE 
OGUBLE  PRECISION  £14000) 

REAL  AI2000J 
C 

COMMON/dLOCK/  ZTOL  Z E , 2T0LP V. Z TCOST, ZTOLR J , ZTOLSM ,QRO , QMA , QS A ,QF I , 

1 QEO, O0L.QA ,0PL,0M I , QZ  , 0 I , OF , ON , QU, NR MAX , NE MAX , QB, OC 

2 Ut  ,W  H , OL  , QO»V)R,QM  ,QG , NT  MAX 
C 

COMMON  0 S J M , U PRO 0 , OY , OE , OP , B I 60 ) , X ( 60 ) , Y ( 6 0) , YTE  MP ( 6 0 ) , A, E . 

1 SUM  INF, IC NAM (122, 2) .NAME (20) ,NTEMP( 20 ), MS  TAT, I OBJ, IROwP, 

2 I VIN.I VOUT, ITCNT, INVFRU, ITRFRG , I FFEZ, JCOL  P, NPO W.NCOL , NELE M 

3 NET A ,NLEl EM  , NLE TA , NOE  LEM ,NU£ TA , JH ( 6 0) , K IN B AS ( 1 22 > ,L A ( 122 ) , 

A LE ( 1002  ),  IA (2000) , IE( 400  0) ,XLB( 122) ,XUB( 122) 

C 

IF  (NETA  .LE.  0)  GO  TO  90 uO 
00  1000  I = 1 , NETA 
IK  = NETA  - I * 1 
LL  = L6( iK) 

KK  = LE( IK  + I)  - 1 
IPIV  = IE(LL) 

OP  = FILL) 

OY  = Y(IPIV) 

DSUM  = 0. 

IF  (KK  .LE.  LL ) GO  TO  600 
LL  = LL  + 1 
00  500  J = LL,KK 
IR  = IE(J) 

DE  = E(J) 

OPRQO  = Ot  * Y(IR) 

DSUM  = OSUM  ♦ DP ROD 
500  CONTINUE 

c 

6CC  YIIPIV)  = (OY  - OSUM)  / OP 
10CC  CONTINUE 
SCCC  RETURN 
END 

SUBROUTINE  FUR MC 
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366. 
36  7. 
363  . 
361. 

370. 
371  . 
372. 

371. 

374. 

375. 

376. 

377. 

3 78  . 

379. 

380. 
381  . 

382. 

383. 

384. 

385. 

386. 

387. 

388. 

389. 

390. 
391  . 
5C2  • 

393. 

394. 

395. 

396. 

397. 
393. 

399. 

400. 
401  . 

402. 

403. 
404  . 

405. 

406. 

407. 
4C3. 

409. 

410. 
All. 

412. 

413. 
4 1 4 • 
415. 

4 16. 
M7. 

418. 

419. 

420. 

421. 

422. 

423. 

424. 

425. 

426. 


C 

C FORMa  OBJ.  FUNCTION  VECTOR;  USED  IN  SUBROUTINE  PRICE 

C SUBROUTINE  AuAPTEO  FROM  LINEAR  PROGRAMMING  COOE  LPM-1,  WRITTEN 

C BY  J.A.  TuMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY! 

C 

IMPLICIT  REAl*4  (A ,C,E-H,0,P,R-W, Z)  , RE AL*8  (3,D,X,Y), 
l INTEGER*4  (I-N,U) 

INTEGERS  JH,KINBAS,LA,LE,  IA,  IE 
DOUBLE  PRECISION  c(400Q) 

REAL  A ( 2000 ) 

C 

COMMON/bLoUN/  ZTUL  Z£ , Z TQLP V , Z TC CS T , ZTOLRJ, ZTOLSM ,QRO, QMA.QBA ,QF I , 

1 CEO, CflL.OA.OPL, CM  I , Q2  ,01 , OF , UN , UU, NkMAX , NEMAX , 08 , 0 C 

2 cE  »UH,QL,QO,QR,QM,QG»NTMAX 
C 

COMMON  ObUM, DPROD,  CY,UE,0P,B(60),X(60),Y(60)  ,YTEMP(fc0),  A,E, 

1 SUM  INF, luNAMI 122,2) , NAME (20)  ,N TEMPI  20  ), MS  TAT, I OBJ,  IROwP, 

2 1 V IN, 1 VUuT , ITCNT,  I NVf RQ, l TRFRU , I FFE  Z» JCOL  P.NPOW.NCOL, NELEM 

3 NETA.NLELEM .NLETA, NUELEM ,NUE  TA , JH ( 60 ) ,K IN  BA S< 1 22 ) ,LA ( X22)  , 

4 Lt ( 1 Ou2 ) , I A (2000) , IE (4000) , X Lb  ( 1 22  ) , X UB  < 1 22  ) 

C 

MSTAT  = Q I 
IFFEZ  = 0 
SUMINF  = 0. 

Y ( 1 08  J ) = 0. 

DO  30  I— 1 , NRUW 

IF  (I  .EQ.  IG6J)  GC  TO  30 

ICOL  = JH<  I) 

IF  (X(!)  .LE.  (XLB(ICOL)  - ZTULZE))  GO  TO  10 
IF  (X(I)  . GE . (XUB(IcOL)  ♦ ZTOLZE))  GO  TJ  20 
YU)  * 0. 

GO  TO  30 
1C  YU)  - l. 

SUMINF  = aUMINF  + XLB(ICOL)  - XU) 

GO  TO  30 
2C  Y ( I ) = -1 . 

SUMINF  = SUMINF  ♦ X(I)  - XUB(ICOL) 

3C  CONTINUE 

IF  (SUMINF  .gT.  ZTOLSM)  RETURN 
YII08J)  = 1. 

IFFEZ  = 1 
MSTAT  = UF 
RETURN 
END 

SU8R0LT i ne  price 

c 

C PRICES  UOT  NONBASIC  COLUMNS;  CHOOSES  PIVOT  COLUMN  JCOLP  FOR 

C CURRENT  PRIMAL  SIMPLEX  ITERATION 

C SUBROUTINE  ADAP  1EU  FROM  LINEAR  PROGRAMMING  CODE  LPM-l,  WRITTEN 

C BY  J.A.  TUMUN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 

IMPLICIT  REAL»4  ( A ,C,t-H,0,P,R-W, Z)  , RE AL*8  (B,D,X,Y), 
l I NTtG£R*4  ( I-N, U) 

I NT£GER*2  JH,MNBAS,LA,CE,IA,IE 
I NT  EGER*2  I PART,  INCUMB,  IVBNO,  IVI0.I08ND 
DOUBLE  PRECISION  EI4000) 

REAL  A ( 2000 ) 

C 

C CM  MO  N/BLOCK/  ZTULZE.ZTOLPV.ZTCCST, ZTOLRJ, ZTOLSM, QRO,QMA,UtoA,QF  I , 

1 QEO, OBL ,UA ,UPL,QM I, UZ ,Q I ,QF , ON , OU, NRMAX , NEMAX , OB, JC 

2 OE  »UH ,0L , 00, UR, UM ,0G, NTMAX 
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427 

428 

429 
4 30 

431 

432 

43  3 
4 34 
435 
434 
437 

433 

439 

440 

441 

442 

44  3 
444 
444 
446 
44  ’ 

443 

449 

450 

451 

452 

453 
4 54 

455 

456 

457 
453 

459 

460 

461 

462 
46  3 
464 
46  V 
446 
46  7 
46  3 

4fc9 

4 70 

471 

472 
473, 
474 

474 
4 76 
477 

475 
4 79 

480 

481 

482 

483 

484 
4 35 
4 86 
48’ 


C PM  w0  N/bLOC  R2/  DEPART (60  ) , RE V BND,  INC V AL , I COL , L IS TL , I V AL , 1 01 R 
I PART (122 ), INC UM 6(122) , I VbNOI 500)  , [VI U (500) , 
lUBNDt  300) ,NP 1 VUT , IPTYPE .RCOST, IF  EAS 


COMMON  DiUM.OPKUQ, UY.OE.OP.tilfcO) , X ( 60 ) , Y ( 60) , YTE MP t 60 ) , A , E, 

SJM INF , 1C  NAM 4 122.2) .NAME ( 20 ) ,N TEMP ( 20  ) , MS  TA T , I OB J , IRO WP , 
l VIN, 1 VOU  T , 1TCNT , INVFRO, I T RF  RQ  , I F F fc  Z, JCOL P , NkO w, NCUC , NECE M, 
I Nfc T A , NL EL  fcM  , Nl E TA , NUE L tM  ,NCE  T A , JH  ( oO ) , K I N B AS ( 1 22)  , LA  1 122 ) , 

L£ ( 1002  ), I A (2000) , 1E(400  0)  ,XLB( 122) ,XUB(122) 


CM  I N = I.EIl 
C.MAX  = -1.E10 
DO  10C0  J - 1 .NCCiL 

IF  (KINbAS(J)  .GT.  0)  00  10  1000 

IF  ( ( xUb 1 J ) “ Xtb(J))  .IT.  zTOLZE)  GO  TO  1000 

DS'JM  = 0. 

LL  = L A ( J ) 

KN  = LA(J*l)  - 1 
DO  500  1 * LL  KK 
1R  = I A ( I ) 

OE  = A ( 1 ) 

OPROC  = DE  * Y(IR) 

OSIJM  = jSjM  ♦ OPKLD 
5CC  CCNTIMJE 

IF  (KINdAS(J)  .Eg.  -1)  50  TO  oOO 
IF  ( D SUM  . GE  . CM  I N ) GO  To  1000 
CMIN  =.  DSOM 
JC0L1  = J 
GO  TO  1000 

6 CC  IF  (OSLM  .Ll.  CM  Ax ) GO  10  1000 
CMAX  = OSLM 
JC0L2  * J 
10CC  CONTINUE 


IF  (CMIN  . L w . -ZTCCST)  GO  TO  1300 
IF  (CMAa  .Gc.  ZTCJST)  GO  TO  2000 

jcolp  = j 

FCOST  = 0. 

RE  TUP  N 

15CC  '.F  ( C p AX  .Gt.  ZTCOST)  Go  TO  2500 
16 CC  JCOLP  = JCllI 
RCOST  * CM1N 

retur  n 

20CC  JCOLP  * JlUlZ 
RCOST  * CMAX 
RETURN 

25C0  IF  (ABE(lMIN)  - CMAX)  2 OOo, 2000 . 1 oO C 
END 

SUSROL’lNt  CHUZR 


PERFORMS  MlN-RAUU  TEST  FOR  PIVOT  COLUMN  JCOLP  DETERMINED  IN 
SIBRU'JTINC  PRICE.  SELECTS  PIVCT  ROW  IROWP  FOR  CjRRENT  PRIMAL 
SIMPLEX  ITtRATlUN. 

SjBFOjIINc  ADAPTED  FRUM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 
BY  J • A • TOM  LIN  (OPERATION..  RESEARCH,  STANFORD  UNIVERSITY) 


IMPLICIT  REAL*4  l A , C , E - H , 0 , P , R— w , Z ) , RE  AL  *8 
1 NT  cjEK*4  (l-N.O) 

I NTEG  EP*2  JH.XINBAS.LA.Lt,  I A, IE 
INTEGER*2  [PART,  INCUMb.i  VBNO , I V ID  , I LBND 


53  r 

. 5313 

539 

540 

541 

54J 

544 

54  5 

546 

547 
543 


DOUBLE  PRECISION  e(4OJ0) 

REAL  M^UuO) 

C 

CCMMON/BLUCK/  ZTGL  ZE, ZTOLPV, ZTCCST, ZTOLRJ, ZTOLSM ,(jRC, QMA.CBA ,UFI  , 

1 GEO, vBL, OA ,U?L , OM I ,Ql  ,9 1 ,QF , 8N , JU, NRMAX ,NEMAX, 03,90, 

2 UE,Uh,ULiQO,wR,WM,wG,NT  RAX 

C 

COMMON /BLOCK*:/  UFP  ART  l bo  ) ,KE  V3ND , INC  V AL  , I COL  , L I S TL  , 1 V AL  , I DIR  , 

1 I PART (12* ) , INCJMBI 122) , I VBND(  500) , I VI 0 ( 50u) , 

2 [ UdNDIBUO) .NPIVOT,  IPTYPE.RCGST, IFEAS 

C 

COMMON  OSuM.DPKUD, GY,DE, UP, 3 1 60 ) , X(bO ), Y(60) ,YTEMP(60 ),A, t, 

1 SUM  INF, 1C  NAM (122, 2) .NAME (20)  ,N TE MP ( 20 ) , MS  TAT , I OB J , IROhP, 

2 I V1N, I VUJT,  ITCNT , iNVFkj,  I TRFKQ , I FF E Z , JCOL P , M 0 W , NCUL , NELE M , 

3 NE T A,  NLELeM  .NLfcTA .NUcLEM  ,NuE  T A , JH ( 6 0 ) , K IN B AS ( 1 22 ) , L A ( 122 ) , 

4 Ll<  1002  ),  1A  (2000)  , IEl-,000)  ,XLB(122)  , XUB (1^2) 

C 

IF  <K  INbA$( JLULP)  .EQ.  -1)  uO  TO  1000 
C 

C INCOMING  VARIABLE  AT  LGrtER  BOUNO 

C 

OP  = I.E10 

DO  50  C I = 1,NR0r 

IF  (I  . EG  • IOBJ)  GG  TO  500 

ICOL  = JH ( 1 1 

IF  ( Y ( I J .GT.  2Tul  P V ) GO  TO  100 
IF  ( Y ( I ) .LT.  -ZTOLPV)  GU  TO  200 
GO  TO  500 

C POSITIVE  COEFFICIENT 

ICO  IF  (X(I)  .LT.  (XLB(ICOL)  - ZTOLZE))  GO  TO  5d0 
DE  = (X(i)  - XLo ( J CCL) ) / Y ( I ) 

IF  (OE  .GE.  OP)  GO  TO  50 0 
IPTYDE  = 0 
GO  TO  250 

C NEGATIVE  COEFFICIENT 

2CC  IF  (X(l)  .GT.  CXUaUCOL)  ♦ ZTOLZE))  GO  TO  500 
OE  = (XII)  - XUB ( ICOL) )/ Y(I ) 

IF  (OE  .GE.  DP)  GO  TO  500 
IPTYPE  = -1 
25C  DP  = CE 
I ROUP  = I 
5C0  CONTINUE 

DE  = CP  ♦ XL 6 ( JCOL P) 

IF  (DE  .LT.  XUB(JLOLP))  GO  TO  o CO  . ' 

DP  = XUB! jCGLP  ) - XLB(JCOLP) 

NPIVOT  = J 
RETURN 

6CC  NPIVOT  = 1 
RETURN 
C 

C INCOMING  variable  at  upper  bound 

c 

10C0  OP  = -I.E10 

DO  150C  l = l,NROv« 

IF  (I  .EU . IUBJ)  GC  Tu  1500 
ICOL  = JH ( 1 I 

IF  (YU)  .GT.  ZTOLPV)  GO  TO  1100 
IF  (YU)  .LT.  -ZTOLPV)  Go  TO  1200 
GC  TO  1600 

C POSITIVE  COEFFICIENT 

11C0  IF  (XU)  .GT.  (XuB(ICGL)  ♦ ZTOLZE))  GO  TO  150D 
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54=1. 

550. 
551  . 
55?. 

551. 

554. 

555. 
55o  . 
557. 
553  . 

559. 

560. 
561  . 

562. 

563. 

564. 

565. 

566. 
56  7. 
56  3. 

569. 
*70. 
571  . 
572. 
5 73  . 
5 74  . 
5 76  . 
5 76. 

5 77  . 

6 73. 

570. 
590. 
531  . 
582. 
593. 
584. 
585  . 
586. 
587  . 
693  . 
5 39. 
590. 
591  . 
59?  . 

59  3. 
5 94. 

595. 

596. 

597. 
503  . 
590. 
600  • 
601  . 
1 02. 

60  3. 

604. 

605. 

606. 

607. 

608. 
609. 


Dt  = <X( I 1 - XUo( I COL) )/ Y( 1 ) 

IF  !DE  .Lt.  OP)  GU  TO  1500 
IPTYPE  = -1 
GO  TO  1250 

C NEGATIVE  COEFFICIENT 

12CC  IF  (X(I>  .LT.  lXL3tIC0U  - ZTOLZEJ)  GO  TO  1500 
DE  = (X(I)  - XLd  < 1 COL ) ) / Y ( I ) 

IF  (OE  .LE.  OP ) GO  TO  1500 
IPTYPE  = 0 
125C  DP  = C£ 

IROWP  = I 
1 5C0  CONTINUE 

OE  = CP  * XUBIJCOLP) 

IF  (DE  .GT.  XL  B<  JC  CLP) ) GO  TO  1600 
DP  = XLB(JCOlP)  - XUeiJCULP) 

NPIVOT  = 0 
RETURN 

1 6 OC  NPIVOT  = 1 
RETURN 
END 

SUBROUTINE  W*tTA 
C 

C FORMS  NEW  eTA-VECTORS  FOR  PRODUCT  FORM  OF  BASIS  INVERSE 

C SUBROUTINE  ADAPTEO  FROM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 

C BY  J.A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 

IMPLICIT  REAL*4  (A ,C,E-H,O.P,R-W, 2)  , REAL*8  (9,0, X,Y), 

1 I NTEGER*4  (I-N.Q) 

I NTEGER*2  JH,  K.  IN  BA  S , LA  , L E , i A , IE 
DOUBLE  PRECISION  £(4000) 

REAL  A (2000 ) 

C 

COMMON /BLOC*./  ZTUL  ZE.ZTOLPV, ZTCCST,  ZTQLRJ, ZTOL  SM  , ORO , QMA , OB  A , QF  I , 

1 wEU, UBLiOA ,QPL , DM  1,02  , Q I , QF , QN , QU, NRMA X , NEM AX , Q8, QC , 

2 wE  »QH,OL»QO«QR,  DM ,QG»NTMAX 

C 

COMMON  DSUM.OPROD, DY, Jt, OP, 8 (60  I ,X(60 ) ,Y(60I  .YTEMPI60  > ,A,E, 

1 SUM  INF , ICNAMI 122, 2 ) .NAME (20)  ,N  TE  MP  l 20  ) , MS  T AT , I OBJ,  IROWP, 

2 I V IN, I VOUT , I TCNT, INVFRO, ITPFRg, ' FF E Z , JCOL P, NSO w , NCOL , NELt M, 

3 NETA.NLELEM ,NLETA , NUEL EM ,NUE TA , H(60) .KINBASI 1221 , LAI  122)  , 

4 Lt  < 1002  ),  I A (2000) , I E ( 4000) , X L9 ( 1 2 2 ) ,X UB ( 1 22 ) 

C 

NELEM  ^ NELEM  * 1 
IEINELEM)  = IRuwP 
E(NELEM)  = Y(IROkP) 

C 

DO  IOCO  I = l.NROW 

IF  (I  .Eg.  IhJWP)  GO  TO  1000 

IF  (DABS(YIll)  .LE.  ZTOLZE)  GO  TO  1000 

NELEM  = NELEM  + 1 

lE(NELEM)  = 1 

E I NELEM)  = Yl 1 ) 

loco  continue 

c 

NETA  * NETA  * 1 
LE(NETAH)  = NELtM  ♦ 1 
OFTURN 
FNO 

SUBPOLTINE  SHI FTR(  I0LD, I NEW) 

c 

C REARRANGES  DATA  STORAGE 
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fcn. 

611  . 

6 12. 

613. 

614. 

fcn. 
616. 
fcl7. 
6 13. 

619. 

620. 
621  . 
62  2. 
623. 
624  . 
623. 
626. 
627  . 
6 2 3. 
629. 

630  . 

631  . 

632  . 
633. 
6 34. 
635  . 
636. 
637  . 
6 33. 

63  9. 
640. 
641  . 

642. 

643. 
6 44. 

64  5. 

646  . 

647  . 
643  • 
649. 

6 50. 
651  . 

652. 

653. 
66*. 
655. 
o56  . 
667. 
653. 
659 . 
< 60. 
661  . 
66  2. 
66  3. 
664  • 
66  5. 
665. 
66  7 . 
663. 

669. 

670. 


c Subroutine  auapteo  from  linear  programming  coot  lpm-i,  bRitten 

c by  j.a.  Tomlin  (operations,  research,  Stanford  university) 

C**»***«*0ESCR1PT!GN  OF  PARAMETERS******** 

C lOLD.lNEw  = PARAMETERS  INDEXING  STORAGE  LOCATIONS  IN  »HICK 

C OAT  A IS  TO  BE  TRANSFERRED  (INPUT) 


r 


C 


C 


c 


IMPLICIT  R£Al*4  (A ,C,fc-H,0,P,R-W,2) , rEAL*8  (B.D,A,Y)t 
1 INTEGEK*4  (I-N.w) 

I NTEG  EK*2  JH.KINBAS.LA.LE,  lA,  IE 
DOUBLE  PRECISION  t(4UOO) 

REAL  4Ul,00) 

COMMON/hluLK/  *TOL  ZE.aTOLPV, ZTCCST, ZTOLRJ, ZTCLSM *QRC , QMA ,QBA ,QF I , 

1 NEC, QBL.QA  ,QPL,QM  I,QZ  ,Ql  ,i)F  ,ON,QU,  NR  MAX  ,NEMAX , QB.QC 

2 L'E  , 0 H . QL  , wO  , OR  t QM  , QG  » NT  MAX 

COMMON  OSJM.lPRUu,  CY.OE, 0P,e(60), X<  60 1 , Y( 60)  ,YTE  MP(60) ,A,E, 

1 SUMINF,  ICNAMU2  , 2 ) , NAME  ( 20 ) ,N  TE  MP  ( 20  ) , MS  T AT,  I OB  J , IROwP, 

2 IV  IN, IVUuT,  ITCNT , INVFRg, I T RF kg , I F FE Z, JCOL P, NR 0 W , NCOL . NELc M 

3 NETA.NLtL  cM  iNLeT  A v NJELcM  ,NUE  TA , JH  ( 60 ) , K.  INeA S<  l 22  I ,LA  ( 122)  > 

4 LEI  1 002 ) , IA<  2000)  , IE (4000) ,XLB(122 ) ,XUB(1 22) 


DIMENSION  BARR  AY  (240) 
EQUIVALENCE  (bARkAY(  l) ,B( 1 I ) 
IFC  = (IOLU  - 1)  * NR M AX 
!FN  = (INEW  ••  1)  * NRMA* 


00  10C0  I = i.NROv* 

BARRAYdFN  + I)  = BARRAYIIFO  ♦ 1) 

10CO  CONTINUE 
RETURN 


ENO 

SU8R0CT INE  INVERT 
C 

C COMPUTES  INVERSE  OF  CURRENT  BASIS  BY  LU  DECOMPOSITION 

C SUBROUTINE  AjAPTtD  FRUM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 

C BY  J.A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 


IMPLICIT  REAl*4  (A ,C,£-H,0,P,R-W, 6)  , REAL’S  (B,D,X,Y>, 

1 INTEGER*4  (I-N,Q) 

INTEGER**  JH, KIN  BAS, LA, Lb,  IA,  IE 
DOUBLE  PKELlolUN  t(40 00) 

REAL  A ( 2000 ) 

C 

CCMMTN/oLUCK/  aTOL  AE,aTOLPV,ZTCOST,  ZTOLRJ, ZT  OLSM,QRO,QMA,U6A,QF I , 

1 QEU, OBL.gA ,JPL ,QM  I,QZ  ,QI  ,0F, gN.QU, Nr MAX ,NLMAX , Qfi, OC 

2 Ot  , 0 H , QL  , QO , WR , QM  , QG , NT  MAX 
C 

COMMON  ^iUM.DPROD, GY, Jc, OP, 8(60 ) , X( 60 1 , Y( 601 ,YT£MP(60 ) , A, t , 

1 SOM  INF , ILNAM( 122 , 2 ) , NAM  E ( 20 > ,N TEMP ( 20 ) ,MS T AT , I OBO,  IRUWP, 

2 IVIN, IV OUT, ITCNT, INVFKQ, I TRF kg , I FFE Z, JCOL P , NROW.NCOL , NELc M 

3 NtTA.NLELcM  ,NLE  T A , NULL  EM  , NUE  TA  , JFt  1 60)  ,K  IN  BA  S<  1 22  ) ,L  A ( 122)  , 

4 Lt l 1002 ) , l A ( 2000 ) , lb (4000)  , X La  11 2 2 > , X UB ( 1 22 ) 

C 

INTEGER*..  MREG  »HRE  G,VR£G 

DIMENSION  MRfculoo ) ,hRLGI 60) , VKEGI 60  ) 

EQUIVALENCE  IMREol  1 ) , Y T E MP ( 1 ) ) , (HREG( 1 ) , Y TEM PI  31 1 I , ( VREu I 1 ) , X< 1 ) ) 

C 

C ScT  PARAMETERS 

C 


6 7 l • 

NE  T A = 0 

67 1 . 

NLET6  = 0 

673. 

N'JETA  = 0 

674. 

NELEM  - 0 

675. 

NLELF8  = 0 

674. 

N'JELEM  - J 

6 77. 

NA80VE  = 0 

678. 

It ( 1 ) = i 

6 79. 

LR1  = 1 

689. 

KR1  = 0 

681. 

IR4  = NRGw  * 1 

682  . 

KR4  = NkUn 

683  . 

C 

684. 

C 

PUT  jlAC.K.3  AM)  AR  T I E l U I AL  3 

685  . 

C 

666  . 

00  ICC  1 = l,NRG*» 

607. 

IF  (JM1I  .GT.  NROw)  GU  TO 

50 

683  . 

LR4  = LK4  - 1 

639. 

MREGH.R4}  = JH  I 1 ) 

659. 

v R E * j 1 L R 4 ) = JHtll 

641  . 

GC  TO  90 

6 '>2. 

5C 

KR 1 = KF.  1 + 1 

6ni  . 

V°EG(KK1)  = JHI  l ) 

694. 

6C 

HRE G ( I ) = — 1 

i 75. 

JH ( I ) = 0 

69(3. 

ICC 

CONTINUE 

67T. 

C 

699  . 

K.R3  = EK4  -l 

699. 

1°  3 ■=  LR.4 

709. 

C 

701  . 

DO  20  C 1 = LK4  »KR4 

702. 

IP  = RREGlI) 

703. 

HREGI  IP )=  0 

704  . 

JH  < I R ) = IR 

705  . 

KIN8ASI I R 1 = IR 

706. 

2C0 

CONTINUE 

707. 

c 

709  . 

c 

RULE  OUT  VECTURj  bfcLUw 

707  . 

c 

71 J. 

N8NCN  l - KR4  - i R4  «-  1 

711. 

IF  (KP1  .EU.  0)  GU  TU  1190 

712. 

J = L R 1 

713. 

2 1C 

IV  = VPtGIJl 

714. 

LL  = LAt IV) 

715. 

KK  = L A ( I V ♦ 1 J -1 

716. 

IRCNT  = 0 

717. 

00  220  I = LL.KK 

719. 

NBNCN l - NflNON L * 1 

717. 

IR  = 1 A(  ! 1 

729. 

I P ( HR  Eo  ( IR  I . Gc  . 0)  GU  TO 

22  J 

7.-1. 

IRCNT  * IRCN7  ♦ 1 

72?  . 

HREGI  IR  ) - HREGI  18  ) - l 

723  . 

[RR  = IR 

724. 

220 

CCNTI NUE 

724. 

IF  (IRCNT  - 11  2 30,250,3 00 

726. 

22C 

aR I TE (6, 6 0001 

727  . 

8000 

FORMAT ( IbrtOMATR 1 X 51NGJLAR 

1 

729. 

KINB&SIIV)  * 0 

729. 

VREGI J)  * VREGIKR1 1 

739. 

KR1  = KR 1 - 1 

7 21. 

IF  I J .GT.  NX! 1 GO  PC  310 
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732  . 
733. 
73*.. 
7 i->  . 
736. 
73  r. 
73  !. 
736. 
760 . 
761  . 
762. 
76  3. 
766. 
76-)  . 
766  . 
76  F . 
76  3. 


C 

C 

C 

C 


C 

C 

C 


C 


C 


c 

r 

C 


GO  TO  210 

2EL  VRF  G(  J)  - VKEG  (KM  1 
KR1  = KKl  - 1 
LR3  = LKi  - 1 
VPEGILRJ)  - IV 
MREG(lRi)  = IKK 
HR  EG ( IPPi  - 0 
Jri(lPP)  = lv 
KINBAS(IV)  = IKK 
IP  ( J ,oT.  KKl)  GO  TO  310 
GO  TO  210 

3CC  IF  ( J .Ot . KKl ) GJ  TO  310 
J = J*l 

GO  TO  210 

Poll  GJ7  REMAINING  VECTORS  ABOVF  AND  BELG»  the 
bOMP  AMU  t ST  AGUISH  MERIT  COUNTS  OF  COLUMNS 

3 1 C NVREM  = 0 

IFIKRl  .EG.  o)  uO  TO  1190 
J = C R 1 

320  IV  = VP : G ( J I 
LL  = LAI  I V) 

KK  = LA( 1 V*l)  - 1 
IRCNT  - 0 
00  3CC  I = LL.KK 
IP  = I A ( I ) 

IFIHPEG(IR)  .Nt.  -2)  GO  TO  600 

PIVOT  ABOVE  BUMP  IPAkT  OF  L> 

NABCVE  = NAbCVE  + 1 
IPOKP  - IP 
CALL  UNPACK  UV) 

CALL  KPE  T A 
NLfcTA  - Alt  T A 
JH(  IR  ) = I V 
KlNRASl  IV)  = IP 
VPFGl J I = VKtGtKRl  I 
Kkl  = KP1  - 1 
NVREM  - UVKEM  ♦ 1 
HPEGI  IP)  = IV 
GO  TO  S6U 

6 CC  IF  (HPEG(IR)  . Cc . C ) GO  TO  BOO 
IRCNT  = IKLNT  ♦ 1 
I P P * IK 
dCC  CCNTIMIt 

if  i ircot  - i)  mo  .90c,  iooo 
e io  write (t, doou i 
KINBASIIV)  = 0 
VPtG(J)  = VK  cGIkR l ) 

NVREM  = NVPcM  + 1 
KP1  = KR 1 - 1 

IF  10  • G T • KK 1 ) GO  TO  lulG 
GC  TO  320 

POT  VECTOR  uE LOW  boMP 
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79 1. 

900 

VRFGI  J ) - VRtGtkKl  ) 

794. 

NVREM  = UVktM  ♦ 1 

799. 

KKl  = KR 1 - 1 

796. 

LR3  = LR3  - 1 

79  7. 

V 0 E G ( L R 3 ) = IV 

798. 

MREGILR3)  = 1RP 

799. 

HREGI  IRP)  •=  0 

800. 

JH(IRP)  = iv 

8<H  . 

K1N8&5UV)  = I RP 

80.?. 

C 

803. 

c 

CHANGE  kGk  OULNTS 

904  . 

c 

ecs. 

940 

00  95C  11  = LL.KK 

90  6. 

IIP  = IA<  I l ) 

er,T. 

IF  IHPFOIIIK)  .Gt.  0.)  GU  TO  950 

80  9. 

HREGI  IIP)  = HkLuI I I R J ♦ 1 

809. 

950 

CCNT IKUt 

919. 

IF  ( J .GT . KKl J GU  TO  10 10 

811. 

GO  TO  32  u 

81?. 

1000 

IF  1 J ,0c  . Kk  1 ) GU  TO  10 10 

913. 

J = J + l 

814. 

GO  TO  320 

818. 

1010 

IFINVREM  .GT.  0)  GC  TO  310 

316. 

c 

817. 

c 

ufcT  Mfck  IT  COUNTS 

ei9. 

c 

9 1 . 

1020 

IF  (KP 1 .tt.  0)  GO  TU  1190 

329. 

DO  1100  J = LRl.KRi 

321. 

IV  = VPEGIJ) 

32?  . 

LL  = LAI  IV) 

823. 

KK  = LAI l V+l)  i 

824  . 

IMCNT  = 0 

025. 

00  1050  l = LL.KK 

824. 

IR  = I A I I ) 

82  7. 

r F (HREGI I R ) .GE.  0)  GO  TU  1050 

829. 

IMCNT  = IMCNT  - IrtkEGlIk)  «•!  I 

02  7. 

1C5C 

CCNTI NOc 

830. 

MPEGIJ)  = IMCNT 

831  . 

1 1 CC 

CONTINUE 

932  . 

c 

833. 

c 

SUKT  COLUMNS  INTO  MERIT  CPOER 

834  . 

c 

UslNG  SHELL  SORT 

9 3 5. 

c 

0 36  . 

ISO  = 1 

8 J7. 

1 1C6 

IF  (KR1  .LT.  2*ISU)  GO  TO  1108 

9 30. 

ISO  = 2*1  SO 

8 39. 

GO  TO  1106 

840. 

IIC9 

ISO  = I yJ  - 1 

841  . 

C 

fcNO  OF  INITIALIZATION 

842  . 

1 IC1 

IF  1 I SD  . L t . j)  GO  TU  Uo7 

843. 

ISK  = l 

84*.. 

11C2 

ISO  = ISK 

845. 

ISL  = IsK  ♦ ISO 

846. 

I SY  = Mktol lSc ) 

64  7 . 

I SI  = VktOl ISL ) 

84  1. 

1103 

IF  I I SY  .Li.  MREGIISol)  GO  To  1104 

849. 

11C5 

ISL  = ISJ  ♦ ISO 

950. 

MREGI ISL)  = I SY 

951  . 

VREGIISU  = IS? 

8 52  . 

ISK  = ISK  ♦ 1 

851 . 

IF  ((ISK  ♦ I SO  1 .It.  KKl)  GU  TO  1102 
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[ 


866. 

855. 

856 . 
85  7. 

858. 

859. 

860. 
861  . 
862. 
361. 
866. 

865. 

866. 
867  . 
863. 
869. 
8 70. 

871  . 

872  . 
673. 
876. 
875  . 
8 76. 
677. 

878. 

879. 

880. 
881. 
032. 
883. 
886. 
885. 
836. 
eor . 

883. 
889  . 
890. 
891  . 
892. 
093. 
896. 
098  . 
396. 
097. 
093  . 

899. 

900. 
901  . 

902. 

903. 
906. 

905. 

906. 

907. 
903. 

909. 

910. 
911  . 
912. 
91  1. 
916. 


1SD  = I ISO  - l)  / 2 
GO  TO  1101 

11C6  ISL  = I SJ  ♦ lit) 

MREG<  ISL)  * HR 60 1 1 SJ) 

VREGl  ISL)  = VREGU SJ) 

1SJ  = ISJ  - ISD 
IF  (ISJ  .GT.  0)  GO  TO  1103 
GO  TO  1105 
1 1 C 7 CONTINUE 

C • c NO  OF  SORT  ROUTINE 

C 

C POT  OUT  BELOw  BUMP  ETAS  (PART  OF  U> 

c 

1 19C  NSLCK  = 0 
NBELOV  = 0 
NELAST  = NEMAX 
NTLAST  = NTMAX 
LE  ( NTl AST  «■  1)  * NELAST  + 1 
C 

LR  = LP3 

IF  (LR3  . GE  . L&6)  LR  = LRa 
IF  (LR  .GT.  KR6I  GO  TO  205J 
JK  = K86  + 1 

00  20C0  JJ=  lR»NK6 
JK  = JK  - i 

IV  = VPEG(JK) 

1 = MREGIJK) 

NBtLON  = NBELGW  + 1 

IF  (IV  .GT.  NR GW ) GO  TO  1200 
NSLCK  = NSLCK  ♦ 1 
12CC  LL  = LAI  IV) 

KK  = LA( I V+l)  -1 
!F  (KK  .GT.  LL)  uO  TO  1300 
125C  IF  (ABSiAtLL)  - 1.)  .Lt.  ZTOLZE)  GO  TO  2000 
C 

13CC  NUETA  = NuETA  + 1 
DO  1 6 CO  J = LL.KK 
IR  = IA(J) 

IF  (IP  .EQ.  IIGU  TO  1390 
I E ( NELAST ) - IR 
E (NELAST ) = A(J) 

NELAST  = NELAST  » 1 
NJELEP  = NUELEM  * I 
GO  TO  160  0 
1390  EP  = A ( j ) 

16C0  CONTINUE 

I E ( NE  LA3T  I = I 
E (NEL  AST  ) = EP 
LE(NTLAST)  - NELAST 
NELAST  = NELAST  - 1 
NTLAST  = NTLAST  - 1 
NJELcP  = NUtLEM  ♦ 1 
20CC  CONTINUE 

205C  IFIKRl  .tu.  0)  GU  TO  3500 
C 

C nc  L-U  OtCOHPO  SIT  ION  UF  BUMP 

f 

DO  30C0  J = LKlt KK  1 
IV  = VPEG(J) 

CALL  LNPAuMIV) 

CALL  f TR  A N I 2 ) 


UU 


! 


SI  5. 
Sift. 
C17. 
si  i. 

91'>. 

920. 
521  . 
92?  . 

92  1. 
925. 
92?  . 
526. 
927. 

929. 

e?9. 

930. 
931  . 
933. 
S3  3. 
939. 
935. 
9 30. 

93  r • 
539  . 
530. 
990. 
991  . 

552  . 
95  3 . 
95  5. 
c55  . 
95<>  . 
9<U. 
559  . 
550. 
550. 
r 5 1 . 
5 32  . 
553. 
555. 
555. 
5 56. 
95  / . 

553  . 
590  . 
56). 
561  . 
56?. 
563  . 
56  5. 

565  . 

566  . 
567. 
563. 
560. 
9 7). 

m . 

572. 
973. 
5 75. 
5 7) . 


I RG*P  - 0 
[RCMIN  - -959399 
00  21  CO  1 = 1,NKU» 

IF  (O-SBSlYim  .IE.  2TGLPV)  GO  TO  2100 
IF  (HrtEGItl  .06.0 ) GO  TO  2100 
IF  ( HP  Loll)  .LE.  IRCMIN)  GO  TO  2100 
IRCMIN  = HktOI  I) 

IR9V.P  = I 
2 ICC  CCNUNJE 

IF  UkuwP  .GT.  0>  GG  TO  2150 
w'RITF<6,d00G) 

KIN0ASUV)  = 0 
GO  Tf.  100  0 

c 

215C  I NC F = SkcGlIROWP)  * 3 
C 

C *k  I T £ L ANO  U ETAS 

C 

IF  I J .tU.  kP 1 I GO  TO  2160 
NELFK  = NELEM  + 1 
IEINELEM)  = IK(iV>  P 
EINELFM)  = YIIROwP) 

2160  DO  230C  1 = l,NROh 

IF  (I  .<,0.  IKOkPJ  GU  TO  2300 
IF<DAdS(Y(I))  .LE.  2TOL26I  GO  TC  2300 
IF  thPEG(I)  .GE.  01  GO  To  2200 
C 

C L ETA  ELEMfcNTS 

C 

NELEM  = NELtrt  ♦ 1 
IF.  1 NE  LEM ) = I 
E(NELEM)  = YU  ) 

GO  Til  2jOO 
C 

C J ETA  ELEMENTS 

C 

22C0  IF(NELAaT)  = 1 

E (NEL AST  J = YI  I) 

NELAST  * NELAST  - 1 
N U E L r N ^ NOEi-EM  + l 
23CC  CCNTIMJE 
C 

JH(IKCPP)  = IV 

K I NBAS (IV)  = IKOWP 

MJFTA  = i-iUETA  ♦ 1 

IEINELASTJ  = IkCnP 

IT  (J  .Nc.  6k 1 ) GO  TO  2330 

E ( NFL  AST ) = Y(  IkUWP) 

GO  TO  Zj*. 0 
233C  E(NFLAST)  = 1. 

NET  A = /ic  T A + 1 
LEIMETAM)  = NELEM  ♦ 1 
2350  NUELEP  = NUELEM  ♦ 1 
LEINTLASTJ  = NELAST 
NELAST  = NELAST  - 1 
NTLAST  = NTLAST  - 1 

c 

C UPDATE  kUlr>  COUNTS 

C 

DO  23  50  I * 1 • NR  Ow 

IF  (L)ARoiYim  .LE.  2TUL2E)  GO  TO  2->?U 
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IF  <HPEG(I)  . oc  • u)  uU  TO  2->5U 

hrpc.<  i ) = HivtGti  t - inck 

IF  (HREG1I1  .Gt.  0)  HRcG(I)  = ■ 
235C  CONTINUE 

HREG(  IPU*P  > = U 
3CCC  CQNTINUt 


9 76 
97  T 
878 
979 
880 
<591 

8C2 

981 
88A 
<585 
9db 
< 87 
<583 
989 
99  ) 
991 

892 

893 
999 

998 
889 
99  7 
99  H 

999 
l COO 
ICO  l 
1002 
1 C03 
1008 
ICO.) 
1006 

1007 

1008 
1C  09 

ion 

1011 

1012 
1 Cl  1 
l c 1 > 

1 C 1 3 


MERGE  L ANC  L)  ETAS 


35CC  NLFTA  = N tl A 

NETA  = NLET A + NUETA 

NLELEP  = Nt  LcM 

NELEM  = NL  LL  EM  NUELEM 

IF  (N'JELEM  .tO.  0)  GO  TO  3530 

CALL  5HFTE 


InSEPT  SLACKS  FOR  DELE  TEL  COLUMNS 


355C  DO  36 OC  1 = liNKOi* 

IF  (JMI1  .Nt.  U)  GC  TO  3o00 

JH ( I I ^ 1 

IROWP  = I 

CALL  UNPACKI1J 

CALL  FTRANIx) 

CALL  vsR  t T A 
36CC  CONTINUE 


UPLIATE  X 


CALL  SHIFTKI1.3) 

DO  90 CO  J= 1 .NCGl 
IF  (KINbASIJJ)  db'JC,  8700, 9000 
8bCC  DE  = XUdtJl 
GO  TO  3750 
87CC  UE  = XLB(J) 

875C  LL  = LA(  J I 

KK  = L A ( J + 1 J - i 
DO  88C0  I -LL  « KK 
IP  •=  IA(  I 1 

88  CC  Y(IS)  - Y l IK)  - All  KUE 
90CC  CONTI NUt 

CALL  FTPAN(i) 

CALL  SHI F TP ( 3*  2) 


LCl  r 
1C1! 
IC1  i 
1020 
1C21 
10/ 7 
1C23 
1029 
1 C26 
IC26 
1027 
1029 
VC29 
1039 
1C31 
1 C 3'' 
1033 
1C3A 

1035 

1036 


PK1NT  STATISTIC* 


NOFD 
N S TP 


NtL  EM  — NETA 
NPU*>  - NS  CC  K 


P ETllP  N 
END 

SUBPUL  T i Nt  UNPACK!  IV) 


C EXPANDS  CurtPP  ES  ScU  MATRIX  COLUMNS 

C S’JPKuJTInc  ADAPTED  PR UM  LINEAR  PROGRAMMING  CODE  LPM-1,  wSITIEN 

C 9Y  J . A . TOMLIN  (OPERATION.)  RES  LARCH.  STANFORD  UNIVERSITY! 

C*»«#»***OESCP 1PTI0N  OF  PARAMETERS******** 

C IV  - PARAMETER  1 Nut A I NG  COLUMN  TO  BE  EXPANDED  (INPUT) 


IMPLICIT  *tAL*A  (A  ,C,fc-H,  0,  P.R-«».  21  , R c AL  * d !R,D,X,Y) 


I C ) 7 . 

1033  . 
1C3D. 
1040. 
1 C 4 1 . 
1 C 4 . 
1C4  1. 
1C44. 
1045  . 
1046. 
1C4T. 
1043. 
1040. 
1030. 

1051  . 

1052  . 
IC53. 
1 C 3 4 . 
10  55. 
1066. 
10??. 

1033. 
106). 
106  ). 
ICO.  I . 
1062. 
1C63. 
1064. 
1063  • 
106  6 . 
IC6  7 . 
1063. 
1060. 
1C70. 

1071  . 

1072  . 
>C7J. 
1074. 

10  73. 
1 C 7 6 . 
1077  . 
1C73. 

1 173. 
108). 
ICO  l . 
KB?  . 
IG'M. 

1034. 

101  - . 

11  >. 
1CP  '. 
1 083  . 
I 01  9 a 
1 Q«  ). 
1 CM  . 
lC'i>. 
10*.  ». 
109  .. 

1063. 
1096. 
1 0 r>  ' . 


c 


c 


c 


c 


c 


c 

c 

c 

c 

c 


1 1 N Tc  GEa  *4  (1  -N , 0 ) 

INTC56B*2  jh  I K it,  lit.  S , UA  , L t » I A , 1 E 
DOUBLE  PkCC(jI0N  E (4ujU) 

K6AL  A(2U0J) 

COM MO 6 /BLOCK/  2T0L 2E, lTOLPV, L TC uS T , 2T0LR J , 2T CLSM  , GRO i QMA.GbA ,UF  l , 

1 lL  Lt  f OBL, QA , GPL  » GM  1,02  ,01  , Of  . ON.GU,  NR  MAX  , NE  M AX  , 08,  0 C, 

2 GL  »UH , wL, UO»  QK  * GM ,UG»  NTMAX 

COMMON  OSJM, JPkOD, UV , D E, DP , 8 I oO  1 , XI 60 1 , Y ( o 0)  , Y TE MP ( 6 0 ) , A , E , 

1 SUM  INF,  IC  NAM  1 122,21  , NAME  (20)  ,N  TEMPI  20  ) ,MS  TAT,  10BJ,  IRuwP, 

2 IVIN.IVOJT, ITCNT, INVFRU,  I T RP RO , I FF E L , JCOL P , NR  0 W , NCOL , NELE M, 

3 NuTA.NLtLEM  ,NlETA,NJELEM,.NUETA,JH(60>  ,KINBAS< 122)  ,LA(  1221  , 

4 LL  t 1002  ),  1 A (2000)  , IE (4000)  , X LB ( 1 2 2 ) , X UB ( 1 22 ) 

DO  IOC  I = 1 ,NRUK 
Y(I)  = o. 

ICC  CCNTIM  t 

LL  = L/( I V ) 

KK  = UtH*l)  --  l 
00  2CC  I - LL , KK 
! R = 1 A ( 1 ) 

Y( IP  ) = All) 

2C0  CONTINUE 


RE  TURN 
PNO 

SUB  ROC  T I H fc  SHF  TE 


S JBPuUT  INl  FUr-  INVERT 

S JB“U<JT  I NE  AUAPTED  FROM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 
BY  J.A.  luMLIN  (OPERA  T I uNS  RESEARCH,  STANFORD  UNIVERSITY) 


IMPLICIT  KtAL*4  (A ,C,E“H,0,P,R-h, 2)  , RE AL*8  (B,0,X,Y), 
1 INTEGER*4  (I-N,0) 

INTFGFR*2  JH, K IN  BA  S , LA , L t , I A , I £ 

DOUBLE  PRECISION  E(4000) 

REAL  McUOO) 


COMMON /BLOCK/  2Tcl2E,2TOlPV, ZTCCST, /TULRJ, ZTOLSM ,oHO,  OMa.OBA ,JFI  , 

1 OfcfJ,  CBL,OA  , OPL,  OM  I,  02,  Ol,  OF,  ON.QJ,  NR  MAX  , Nt  MAX  , OB,  UC  , 

2 Oc  , w H ,0L  , 00 , JR  , OM  ,QG,  NT  MA X 
C 

C CMMUN  oSOM,OPR0D,LY,UE,DP,B(60),X(6O),Y(o0),YTEMP(o0),A,t, 

1 SUM  (NR  , ICNAM(  122, 2 ) .NAME  (2  0)  ,N  TEMPI  20  ) ,MS  TAT  , IOBj  , IrOwP, 

2 I V (N, I VOUT,  1 TCNT , 1NVFR0,  I TRF RO , I FF E 2 , JCOL  P,  NR 0 W , NC Ol  , NtLE M, 

1 NE  T a , AIL  EL  EM  , NLE  TA , NJE  L t M ,NUETA,JH(60) , K IN 6 A S ( 1 22 ) , L A 1 122 ) , 

4 LE(  1002),  I A (20 JO) , I E(aOOO)  ,XLB( 122)  ,XUB< l 22) 

r 

C 3 H 1 1-  T It  »No  E of  J ELEMENTS 

c 

\IF  = REM AX  - NUtLcM  * 1 
I NCR  = „ 

DO  10C0  I = NF.NFMAX 
INC®  = [NCR  t l 
1 l ( NL  EL  EM  ♦ [NCR  ) = 1 E(  I ) 

E ( NLE LEM  * I NCR)  = E(l) 

1CCC  CONTINUE 


Ii)  IF  NlMAA  ••  N L L LEM  - MuELEM 
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NF  = NTP.A  A •■  f)„tTA  ♦ 1 
I NC  k - b 

00  ?'JCu  I = iif  tNTMJX 
l NO'  = InCR  ♦ 1 

Lt  INLET*  f INC  l- 1 --  LEU)  - I U II- 
2OC0  CONTINUE 

L E ( NE  TA*  . ) =■  NEL  tM  ♦ i 

RE  TUP  N 

END 

SUBROUTINE  OPUETA 

c 

C UPDATES  R)ohT-HANL  SlUtS  TU  REFLECT  NE*  BASIS  RESULTINu  FROM 

C CJPPEN  T SIMPLEX  PIVOT 

C SUBROUTINE  ADAPTED  FRuM  LINEAR  PROGRAMMING  CODE  LPM-l,  WnlTTfcN 

C BY  J.A.  TuMlIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 

IMPLICIT  n.EAL#A  (A,C,t-H,0,P,K-*,Z)  , Rt AL*B  (B.D.X.Y), 
l I NTcGLK  *4  I I-N,  01 

1 NT®G  FR*2  JH.lUNUA  S.cA.LE  , IA,  IE 

I NTT  G E P«u  I PART , IN CuMB, I VaND, I V ID, ICBNO 
DOUBLE  PRLulSION  EI-+00J) 

PEAL  A ( 20 DC ) 

C 

COMMON /a LOCK/  lT  uL  lc  , LTO i_P V , L TC GST  , ZTOLR  J , ZTOLSK  , URu , QMA  , „B  A ,0F  I , 

I UE  L , U JL  ,wA  , JPL  , UM  I , J L * U I ,‘JF  , UN  , QU  > NRMAX  ,NEMAX,  UB , 0 C , 

? UE»GP»UL,(Ju,UR, wM ,UG , NT  MAX 

c 

C DM  M0  N/ nL  UL  N2/  D Fp A R i ( oO ) , Kt V BN 0,  I N f V AL , I COL ,LISTL,!VAL,IOIk, 

1 I PART (122 ) , INuJMbf  12?)  , I VBNOI 500)  , IV10  (500) , 

2 I UP NCI  DUO) ,NP I VOT, IP  T YPE ,RCOST, IF  EAS 
C 

COMMC  N jajM,0PKUO,  UY,0E»UP,B(60)»A(oU)»Y<o0)  »YT£MP(t>0)»A,t» 

1 sort  INF , 10 NAM  1 122, 2) , NAME! 20) ,N TEMPI  20 ) ,MS  TAT,  I OBJ , IRUHP, 

2 IVIN, IV  us  T,  ITuNT,  INVFKU,  I T RF  RQ  , I F F E l , JCOL  P , NPOVI , NCUL  , NEL  t M, 

i ;MtT  A ,NLEL  EM  ,NLcTA  , NUELbM  ,NtiE  TA  , JHI  60 ) , KINBAS 1 1 22  ) , LA  I 12L>  , 

A Lt  l 1002),  I A (2000)  , IE(moOO)  ,XLBU22  ) , XUS  (122) 

C 

DO  ICCU  I-L,NkOp 
1CCC  X ( I > » Alll  - YIII *DP 

IF  (NPI/UT  .LU.  1)  GU  TL  LO 00 
KINbASl JCULP)  = -I K INBAS ( JCOL P)  + i) 

IVOUT  = JuULP 
fi  p TijP  N 

2CCC  X ( I 0 0 V >' ) - Ot 

! VCUT  = JH(IRURP) 
klNBAS(JCuLP)  = IkliWP 
MNPASUVJUT)  = IP  TYPE 
JH(IPOWP)  = JCbLP 
FFTUFA 
END 

SUBRTLTINc  NOkMmLI  ITSINV) 

c 

C ScPVLS  «s  MASTER  PROGRAM  Fur  linear  programming  CUMPONENT 

C (PFVIStO,  PKIMAL-SlMPLtX  METHOD)  OF  6R ANC H--AN D-BCU NO  ROjTlNE  BB 

f S JfcPUJT I NE  AuAPTED  FROM  LINEAR  PROGRAMMING  CODE  LPM-l,  nRITTEN 

C BY  J.A.  TUMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

****^*DE  SCf  1 PT  luN  Or  P AkAMc  T ERS '•*****•  * 

C ITSINV  = NUMbER  OF  SIMPLEX  ITERATIONS  SINCE  LAST  BASIS 

r inversion  i inpjt/output i 

r. 
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11^. 
1 160. 
11(1. 
1 16?  . 
1 163. 
1 16  V • 
1 166  • 
1 166. 
1 167  . 
1 168. 
1 160. 
1170. 
1171  . 
lio?. 

1173. 

1174. 
1176. 

1176. 

1177. 
1173. 

1179. 

1180. 
1181  . 
1182. 
1183. 
1 184. 
1188. 
1186. 
1180. 
1 1 P 3 . 
1 1 89  . 
1190. 
1 191  . 

1192. 

1 193. 

1194. 
1193. 
1 196. 

1190. 
1 198  . 

1199. 

12C0. 

1201. 

1202. 

1203. 

1204. 
12C5. 
1204. 

1200. 
1203  . 

1209. 

1210. 
1211  . 
1212. 

1213. 

1214. 

1215. 

1216. 
1217. 
1213. 
1219. 


IMPLIC'T  REAl*4  IA  , C , E-H  , 0,  P , R~  W, 2)  , REAL*8  <B,G,X,Y), 

1 i N TE  GEk  *4  (I-N.U) 

1 NT  EG  ER“2  JH,KiNoAS,LA,LE, IA, IE 
1 NTEG  ER*2  IPrtRT,  INGUrtB,  l VBNU  , I V IO.ICbNO 
DOUBLE  PRECISION  E (40001 
PEAL  AUOOO) 

C 

COMMC  N/ BLOCK/  iTGL/E./TOLPV./TCOST,  2T0LRJ,  ZTCLSM  ,080,  QMA.QBA  ,QFI  , 

1 QE0,U8L,UA , QPL  , GM  1,02  ,01,  QF,  QN.OU,  NKMAX  , NEM  AX , QB,  oC, 

2 Wfc ,QH,OL ,UO,UR ,UM,Uu, NTMAX 
C 

C0MMPN/BLUCK2/  UFP  ART (60 1 ,RtVoNO, INCV  AL , I GGL , L I S TL , ! V AL , IDIR , 

1 I PA R T ( 122 1 , 1 NCUMB ( 12 2) , I V8N0{  500)  , 1 V'D (500) , 

2 IUBNDt 500) .NPIVOT, IPTYPE.RCOST, IFEAS 
C 

COMMON  DSUM.UPRUO, CY.DE, UP ,B( 60 ) , X( 60) , Y<  60)  , YTE  MP<  60 ) , A ,E , 

1 SUM  INF,  IC  NAM  (122, 2),  NAME  (20)  ,NTEMP<  20  ),  MS  TAT,  IOBj,  IP.3RP, 

2 IVIN, IV  GUT  , I TCNT , 1 NVFRQ,  I T RFPU  , l F F E 2 , Jf.Ol  P.NROW.nCOC,  NELEM, 

3 NlTA.NLcL  LM  ,NLETA  , NJtLEM  ,NGE  TA  , JH  ( 80 ) , K IN  BA  S ( 1 22  ) , L A ( 122  ) , 

4 LI ( 1002 ) i ! A 1200U) , IE (400  0) ,XLo < 1 22  I ,XU8(  l 22  1 
C 

IF  ( I T S I N V -GT.  iNVFKQ)  CO  TO  1500 
10CC  CALL  ! NVc  8 T 
ITSINV  = 0 
C 

C SIMPLlx  CYCLc 

c 

15CC  CALL  FCKMu 
CALL  PTK  AN 
CALL  PkIcE 

IF  l JGCLP  .GT.  o)  GC  Tu  3000 
IF  (MSTAT  .t*.  G 1 ) GO  TO  2000 

MSTAT  = ivBl 
GO  TO  6000 
20CC  MSTAT  = UN 
GO  TO  6UO0 
30CC  IVIN  = oCULP 

CALL  LNPACK(JCOLP) 

CALL  fTRANtl) 

CALL  CPUlK 

CALL  GPBtTA 

1 TCNT  = 1ICNT  + 1 

ITSINV  - ITilNV  + 1 

IF  (NFIVL.T  .FQ.  0)  GO  TU  4010 

IF  (NELEM  .GT.  6600)  GO  TG  1000 

CALL  RPcTA 

4C1C  IF  (ITSINV  .Gt.  INVFRQ)  GO  TG  1C0C 
IF  ( I TCNT  .Gt.  1T6FRQ)  GG  TO  6003 
GO  TO  16uu 

r. 

60CC  RETGFN 
ENO 

SL'BFOCTINE  BAN  lB  ( I N ITEU,  ITSINV) 

C 

C MASTER  PRLGRAM  FUR  BPANCh-AND-BQUND  INTEGER  PROGr.AMMlNG 

C PGITINb.  ALiU  SERVtS  AS  MASTER  PROGRAM  FOR  R EOP T I M 1 2 A T I JN 

c via  RtviiLu  goal-simplex  methud  af t tK  a fcrwapo  branch. 

C**»****#dESCr1PT 1CN  uF  PARAMETERS******** 

C INITbU  - IN1IIAL  CGwEP  9UJN0  JN  M3aIMAL  OBJECTIVE  VALUE  (INPJT) 

C f T 5 1 «M  V = NUMBER  OF  SIMPLEX  ITERATIONS  SINCE  LAST  BASIS 

C INVERSION  ( I NPJT/ OUTPUT  ) 

4? 


. 


-2  r>: 


i 


122). 
1221  . 
1222. 

1223. 

1224. 

1225. 

1226. 

1227. 

1228. 
1229. 

1230  . 

1231  . 

1232. 

1233. 

1234. 

1235. 

1236. 
1237  . 

1238. 

1239. 

1240. 
1241  . 

1242. 

1243. 
! 244  . 

1245. 

1246. 

1247. 

1248. 

1249. 
1260. 
1261  . 
12  52. 

1253. 

1254. 
1258. 
1256. 
1267. 

1258. 

1259. 

1260. 
1261  . 
1262  . 

1263. 

1264. 

1265. 

1266. 

1267. 

1268. 

1269. 

1270. 

1271. 

1272. 

1273. 
12  74. 
1775. 

1274. 

1277. 

1278. 

1279. 

1280. 


IMPLICIT  REAL*4  lA,C,e-H.O|P.R-W, l)  , RE AL * 8 (6,U,X,Y), 

1 INTEGER *4  (I-N.U) 

INTEGER  JM,KINbAS,LA,LE,  IA,  IE 
INTEGFR*2  I PART,  INLUMtJ,  I V'BNU  , 1 V ID  , I C6N0 
DOUBLE  PRECISION  E14J00) 

REAL  AljuOO) 

COM  MO  N/oLUCX/  21  OL2E.ZTOLPV,  ZTCOST,  ZTOLRJ  , ZTOLSM  , 3R0  , QM  A , OBA  ,0F  I , 

L lEU,  lUL.JA  ,^PL.  UM  1,C|Z,QI,  OF,  QN.QU,  NR  MAX  ,Nt  MAX  , QB , uC , 

2 Cl  ,lH,UL,QC,JR»UM,UG,NTMAX 

CUMMf N/BLUCKc/  OFP  AkT(oO)  .REVBNL),  INCVAL  , I COL  , L I S TL  , 1 V AL  , 1 01 « , 

1 1 PART  1122  ) t INC'JMBt  1221 , IVBND1  5001  , I VI  0(500), 

2 I Oo NO ( 500 ) ,NPI VUI, IP  type ,RCOST, IF  EAS 
COMMON  OaUM  , OP  KL1 0,  CY,Ut,0P,(i(60),X(6ol,Y(o0)  ,YTEMP(601,A,Er 


ICC 


150 


2CC 


SUM  INF  , IC  NAM  (122,2)  .NAME  (20  ,NTEMP(  20)  , MS  TAT,  10BJ,  IRUWP, 
IVIN, IVUUT, ITCNT, INVFRU, l TRF k J , l FFE Z , JCOL P, NRO W, NCOL , NELc M, 
NLTA.NCELEM ,NLcTA,NUELEM,NUETA,JH(60) ,KINBAS(  122) ,LA( 122)  , 
Lfc 1 10u2  ),  I A (2000)  , IE (4000)  ,XLo ( 1 22 ) , XUB ( 1 22 ) 

IF  (ITCNT  .be.  ITrFRU)  RETJkN 
IFFAS  = j 
L I STL  = O 
INCVAl  = INITBD 

TEST  FUR  FATnUMING 
CALL  TEaTX 

IF  (MSTAT  • Eu . OBL)  60  TO  200 

CUPFENT  NODt  FATHOMtO;  BACKT RACK  TU  LAST  PROMISING  NODE  uN  LIST 
CALL  BKTkAK 

IF  l 1ST  IS  EMPTY,  RETURN  TO  MAIN (COM PUT  AT  IONS  COMPLETeD) 

IF  (LISTL  .EL.  0)  RETURN 

USE  PRIMAL  SIMPLEX  MlTHUO  FOR  RECP TI M I L AT  ION  AT  MEW  NUDE 
CALL  NORMAL (I TSINV ) 

IF  (ITCNT  .GL.  ITkFRu)  RETURN 
GO  7q  10U 

curflnt  nuoe  nut  fathomed ; compute  penalties 

BRANCHING  AT  Co  R R ENT  N00E  IS  DONE  FROM  SUBROUTINE  PENLTS 
CALL  FENLTS 
IF  (ICiF)  400 , la  0, 4C0 


PF  U VERT  CURR  EN  T BASI  S 
10CC  CALL  INVERT 
t TSINV  = U 


uJAl  a IMPL  EX  CYCLE 


aCC 


4CC 


CMCLSc  PIVUT  nuk  IROwP 
CALL  CCHU2R 

IF  (IPC6.P  .OT.  0)  GO  TO  400 
MSTAT  = JBL 

GO  TO  10u 

CHCC-Sr  PIVOT  COLUMN  JCULP 
CALL  CCHUZL 

IF  (JCCLP  .EO.  O)  GO  TU  150 
IVIN  * JCULP 

HPCATt  RIOHT-HANC  SIDES  TU  REFLECT  NEW  BASIS  RESULTING  FROM 
CUR R EN T aIMPLEx  PIVUT 
CALL  CPBETA 
ITCNT  = ITlNT  ♦ 1 
IF  (ITCNT  .Gt.  IThFRO)  RETURN 
HSINV  =>  I TSINV  ♦ I 

CE  C t OE  RhtTHLK  TC  REINVERT  CURPtNT  BASIS 
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= J 


12B1  . 
1282. 
128)  . 
128*. 

1285. 

1286. 
128  7. 
1288. 

12  89. 

1290. 

1291. 

1292  . 

1293  . 
129*. 

1295. 

1296. 

1297. 

1298. 
1298. 
1301. 

1301. 

1302. 

1303. 
130*. 

1305. 

1306. 

1 307 . 
1303. 

1309. 

1310. 
1311  . 

1312. 

1313. 
131*. 

1315. 

1316. 
131?. 
1313. 

1319. 

1320. 
1321  . 
132). 
1323  . 
132*. 

1325. 

1326. 
1 327  . 
1323. 

1329. 

1330. 

1331. 
1 332  . 
1 333. 

13  3*. 
13  35. 
1336. 
1 337  . 
1 3 38  . 
1 339. 
13*0. 
13*1  . 


IF  UKELEM  .GT.  5600)  .OK.  UTSINV  -Gt.  1 NVFRQ) ) GO  TO  1000 
C RE  INVERSION  NOT  NECESSARY  YET;  WRITE  JJT  NEW  ETA-VECTOR  F OK 

C CURRENT  SIMPLEX  PIVOT 

CALL  VPtTA 
GO  TO  300 
END 

subrgltine  ulhuzr 

c 

C SELECTS  PIVCT  ROW  IROWP  FOR  CORRtNT  DUAL-SIMPLEX  ITERATION. 

C SETS  I ROwP  = 0 IF  CURRENT  BASIS  IS  OPTIMAL.  OTHERWISE,  IROWP  IS 

C CHCSEN  TO  8 E ThE  ROW  WITH  GREATEST  PRIMAi.  INF  EA  S 1 8 IL I TY. 

C 

IMPLICIT  wEAL**  (A  ,C,E-H,0,P,R-W, 2)  , REAL*8  (8,D,X,Y), 

1 INTEGER**  ( I-N, Q) 

! NTEGEP*2  JH,  K IN  BA  S , LA  , L E , I A , I E 
INTEGERS  I PART,  INCUM6, I VBND , I V 10 , l OBND 
DOUBLE  PRECISION  E(*OOOJ 
REAL  A ( 2000 ) 

C CM MG  K/ BLOCK/  ZTGL  ZE.ZTOLPV, ZTCCST, ztolrj, ztolsm , qro, qma.oba ,QF 1 , 

1 GEO,CBL,UA,GPL»UMI,QZ»wl,GF»QN,GU» NRMAX , NEMAX , GB, OC 

2 U£,UH,GL,UO,gK,GM,QG,NTMAX 

C0M“0K/BlUCk2/  OFP  ART (60) , RE V6N0 , INCVAL, l COL , L ISTL , I V AL , I DIR , 

1 I PART (122) , tNCJMBI  12  2) ,1 V9ND(  500)  , I VI 0(500) , 

2 I UB  NOl 500 ) , NPI VOT, IP  TYPE .RCGST , IF  EAS 
COMMON  DsUM.UPROD, D Y , DE, OP ,B ( 60 ) , X<  60 ) , Y ( 60 1 , Y TE MP ( 60 ) , A , E , 

1 SOM  INF, IC KAMI  122, 2) .NAME (20)  ,N TE MP ( 20 ) ,MS  T AT , l OB J , IROWP , 

2 1V1N.IVUUT,  ITCNT, INVFKG, ITRFkO , I FFE 2, JCOL P, NRO W, NCOL , NELE M 

3 NETA.NLF.LEM  ,NLE  TA  , NJEL  EM  ,NUE  TA  , JH  ( 60)  ,KlNBAS(  122)  , LA  ( L22)  , 

* Lt ( 1002 ), iA (2000) , I E ( *000 ) ,XLB( 122 ) ,XUB(122) 

IROWP  = 0 

DP  = -1.E10 

DO  1000  1 = 1, GROW 

IF  ( I .EG.  IOBJ)  GL  TO  1000 

ICOl  = Jri<  I) 

IF  (XU)  -LT.  (XLB(ICOl)  - ZTOLZE))  GO  TO  100 
IF  (X(!)  .GT.  (XUB(ICOl)  * ZTOLZE))  GO  TO  200 

GC  TO  1000 
C 

C SASIC  VARIABLE  ON  ROW  1 FALLS  BELOW  (TS  LOWER  BOUND 

ICO  DE  = XLBl ICCL)  - X(I) 

IF  (DE  .LE.  DP)  GO  TO  10 00 
IPTYPE  = 0 

GO  TO  2 30 
C 

C PASIo  VARIABLE  on  ROW  I EXCEEDS  ITS  UPPER  BOUND 

2CC  DE  = XU)  --  XJo(  IdCL) 

IF  (OE  ,U.  DP)  GO  TO  1000 
I PTYPE  = ~i 

C 

250  IROWP  = 1 
10CC  CONTINUE 
RETURN 
END 

SUBPCLTINc  DCHUZL 
C 

C SELECTS  P1VCT  COLUMN  jCULP  FOR  CURRENT  DUAL-SIMPLEX  ITERATION. 

C SETS  JCOl.P  = G IF  LP-PRGBLEM  AT  CURRENT  NODE  IS  INFEASIBLt. 

C OTFERWISE  CHOUSES  JCOLP  TO  MAINTAIN  PRIMAL-OPTIMALITY. 

C 

IMPLICIT  ReAL**  <A,C,e-H,0,P,K-», Z)  , R E AL* B (B,D,X,YJ, 

I INTEGER**  U-N,C) 


1342. 

1341. 

1344. 

1345. 

1346. 

1347. 

1348. 

1348. 

1350. 

1351. 

13  52. 

1353. 

1354. 

1355. 

1358. 

1357. 

C 

1358. 

135R. 

1360. 

C 

1361. 

C 

1362. 

C 

1363. 

1364. 

1365  . 

1366. 

1367. 

1368. 

1369. 

1370. 

1371  . 

2CC 

1372. 

C 

13  73  . 

225 

1374. 

1375. 

25C 

1376. 

1377. 

5C0 

13  73. 

C 

1379. 

1380. 

1381  . 

1382. 

1383. 

1384. 

1385. 

C 

1386. 

C 

1387. 

c 

1388. 

1CC0 

1389. 

1390. 

1391. 

1392. 

1393. 

1 3 04. 

1395. 

1396. 

12CC 

1397. 

c 

1398  . 

1225 

1399. 

1 4L0. 

125C 

1401  . 

1402. 

15CC 

I  NT  EG  EP*2  JFt,KIN6AS»LA,LE, IA  , IE 
INTEGEP*2  1 PART  , INCUMB, I VBND, IVIO.lCoNO 
DOUBLE  PRECISION  EI4000) 

REAL  AI2000) 

COMMON /BLOCK/  2TULZt,2TOLPV,2Tl.CST,  ZTULR  J , ZT  OL  SM  , QRO , QUA  , ybA  ,QF  1 , 

1 QEO,UBL,(3A,UPL,UMI,QZ,OI,QF,UN,QU,NaMAX,NEMAX,QB,QC, 

2 wE ,0H,wL,«O,QR, qm.ug, ntmax 

COMMO  N/aLliC  N2  / DFP  ARTIou) ,REV6NU,  INCVAL,  I COL  , L I S TL  , I V AL  . 1 J 1 R , 

1 IPARTU22  ) , INCJMBI  12  2) , 1 VBNOl 5001  , 1 VI 01500 1 , 

2 I 08 NO 1 500) ,NPI VOT, IP  TYPE ,RCOST, IF  EAS 
COMMON  0: JM.nPROD, DY,OE,OP,Bl oO) ,X( 60) ,Y I 60)  ,YTEMPI60) ,A,E, 

1 SUM  INF, ICNAM(122,2),NAME(20)  ,N TEMPI  20), MS  TAT, I OBJ, IROMP, 

2 lVlN,IVCUr,  ITCNT,  invfro, ITRFR0,IFFE2, JCOL P,N«OW,N^OL,NEL£M, 

3 NE  T A , NLfcL  EM ,NLt T A , NUcLEM  ,NuE  IA , JHI 60)  , KIN B AS I 1 22 ) , L A I 122 ) , 

A Lt I 1C02  ), I A (2000) , I E( 4 000 ) .XLBI122) ,XJB( 122) 

JCCLP  = 0 

IF  (IPTYPt  „£Q.  -1)  GO  TO  1000 

LEAVING  VARIABLE  FALLS  BELQw  ITS  LOR  ER  BOUND 

DP  = -1.E10 

00  50C  J= 1 , NCOL 

IF  (KINbAS(J)  .GT.  0)  60  TO  500 

IF  (IXUBIJ)  - XL  B I J ) ) .LE.  2TOL2E)  GO  TO  500 

CALL  UNPACK  I J ) 

CALL  FTKAN(i) 

IF  (KINBAS(J)  -E  0.  -1)  GO  TO  200 
IF  I Y I IRuIn  P ) 2 TO  LPV)  225,225,  500 

IF  (Y(IRURP)  - 2 TO  LPV)  500,225,225 

OE  = Y I IOBJ)/Y ! I RO  nP ) 

IF  IDE  - OP)  5*00 , 5 00,250 
JCOLP  = J 
OP  = CE 
CONTINUfc 

1 f (JCCLP  .tU.  0)  RETURN 
CALL  UNPACK! JCOLP) 

CALL  F TRAN  I 1 ) 

ICOL  = JHI IROWP) 

OP  = (X(IKGrP)  - XLBl 1C0L) )/Y I IROrP  ) 

GO  TP  2000 

LEAVING  VARIABLE  EXCEEDS  ITS  UPPER  BOUND 


OP  = I.eiO 
DO  1500  J = 1 ,NCOL 

IF  IK.INbASIJ)  .GT.  0)  GO  TO  1500 

IF  (IXUBIJ)  - XLb(J))  .LE.  2TJL2E)  GO  T 3 1800 

CALL  UNPACKIJ) 

CALL  FTRANIl) 

IF  (KlNbASIJ)  .EC.  -1)  GO  TO  1200 
IF  <Y<IkU*P)  - 2 TO  LP  V I 1500,  1225,  1225 
IF  (YIIROrP)  ♦ 2 TO  LPV)  1225 , 122 5 , 1500 

OE  = Y ( l UB  J I / Y ( I RO  *P  ) 

IF  I OE  - DP)  1250, 1500,1500 
JCOLP  = J 
OP  * CE 
CONTI  MJE 
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v » ; 1 1 1 , ■ y 


1 403  . 

1404. 

1405. 

1406. 

1407. 
1401  . 
1400. 
1410. 
1411  . 
141?  . 

1413. 

1414. 

1415. 

1416. 

1417. 

1418. 

1419. 
1423. 
1421  . 
14  2 2. 

1423. 

1424. 

1425. 

1426. 
1 1 2 7 . 
1428. 
1420  . 
14  30. 
1431  . 

1432. 

1433. 
1434  . 

1435. 

1436. 
1437  . 
1433. 
1439  . 
1440. 
1441  . 
144?. 
1443. 
I 444  • 
1445  . 

1448. 
1447. 
1443. 

1449. 

1450. 
1451  . 
1452. 
1463  . 
1454. 
1455  . 
i486. 

1437. 
14  3-1 . 

1459. 

1460. 
147/1  • 

146?  . 
1463  . 


C 

IF  ( JCCLP  .eC.  0)  RETURN 
CALL  uNPACM  JCOLP) 

CALL  FTR  AN ( 1 1 
ICOL  = JH1 IfiUKP) 

DP  = (X(IkUwP)  - XU8< ICOL) ) /Y{ IROWP  ) 

C 

20C0  IF  (KINbASt JCULP)  .EU.  0)  OE  = DP  + XLB(JCOLP) 

IF  (NlNBASl JCOLP  ) .EG.  -11  OE  - OP  + X'JB(JCOLP) 

NPIVOT  = i 

RETURN 

ENO 

SUBROUTINE  TEST* 

C 

c tests  lp-optimal  solution  at  current  node  for  fathoming. 

C FATHOM  I NO  OCCURS  IF 

C (1)  tP  PROBLEM  AT  CJRKENT  NUOE  IS  INFEASIBLE  (MSTAT  = ONI;  OR 

C (2)  LP-UPTIMAL  CBJ.  VALUE  UVAl)  . LE . OBJ.  VALUE  OF  CURRENT 

C INCUMBENT  SOLUTION! INC VAL) ; CR 

C (3)  LP-CPT1MAE  SOLUTION  SATISFIES  INTEGER  RESTRICTIONS. 

C 

IMPLICIT  REAL*4  ( A ,C , E-H , 0, P , R- ft , Z 1 . REAL*6  (B»D,X,Y), 

1 INTEGERS  (I-N.OJ 

I NT  EG  EP  *2  JH.KINBA S.LAfLt , IA ,IE 
INTEGERS  IPART, I N COMB , 1 V BNO.  IVID,ICBNO 
DOUBLE  PRECISION  E1400J) 

REAL  A120O0) 

COMMON /BLOCK/  ZT uL  Z E, ZT JLP V, ZTCGS T,  ZTOLRJ, ZTOLSM , QRO , QUA , QdA ,«F I , 

1 GEL',  GBL.GA  ,QPL,  QM  I , GZ  ,QI  , QF  , ON  , QU,  NRMAX  ,NtMAX, G8.GC 

2 GE ,Uh,UL, 00, UR, QM  ,QG, NTMAX 

cCMMON/oLULKZ/  0 FP  AR T ( 60 ) , RE VBN D, INCV AL , I COE , L I S TL , I V AL , I 01 R , 

1 I PART (122 1 , INCUMBt  L22)  ,IV6ND(  5001  , l VI 0(500) , 

2 I Oo NO (500)  , NP I VO  T , I P TYPE , RC OS T , 1FEAS 
COMMON  DSUM  ,UPROO , OY,OE, OP ,B ( 60  ) , X( 60) , Y l bO) , Y TE MP 160 1 , A , E , 

1 SuM INF, ICNAM1 122, 2) ,NAME(20)  ,NTEMP( 20) ,MS  TAT, 1 OBJ,  IRGwP, 

2 I V I N , 1 VOU T , I TCNT , 1 NVFR G , I TRF RG , I FFE l , JCOL P, NkQK, NCOL , NELE M 

3 NETA,NLELEM  ,NLETA,NUELEM,N'JETA,  JH(60)  , KIN  BAS  ( 122)  , LA  ( lc2  J , 

4 LE ( 1002 ), 1A (2000) , IE(400C) , X LB ( 1 2 2 ) , X UB ( 1 22 ) 

COMMON/TIMERS/  T F I R ST, TUP T , I F VA L , ITCT 

DP  = X(IuBJ)  + zTOLZE 
I VA  L = IoINT(OP) 

IF  (DP  .LT.  0.)  I V AL  = I VAL  - 1 

IF  ( ( M STh T .EJ.  GN  ) .OR.  (IVAL  .LE.  INCVAL1)  GO  TO  2000 
C 

C COMPUTE  INTEGER  AND  FRACTIONAL  PARTS  OF  EACH  BASIC  VAR. 

C 

00  IOC  I — 1 , NK 0 W 

IPART  (I)  = IDINTIXU)  «•  ZTOLZE) 

NTFMP ( 1)  = IPART ( I > 

ICO  DFPAOT(l)  = X( U - FLOAT (NTEMP (1)1 
C 

C CHECK  FUR  ALL-INTcGER  SCI UT  ION 

c 

00  20 C 1=1 , NROW 
IF  (JH1)  .lE.  NRGW)  GO  TU  200 
[F  (JFPART(l)  .Gt.  ZTOLZE)  RETURN 
2CC  CONTINUE 
C 

C SOLUTION  ALL-INTEGER:  INSTALL  AS  NEW  INCJMBtNT 

C 

C CORPuTt  AND  OUTPUT  COMPUTATION  TIME  KEGU1 RED  TO  REACH  NE« 


1 464. 

1465. 

1466. 

1467. 
1463. 
1463  • 

1470  . 

1471  . 
147?  . 
1473. 
14  74  . 

1475. 

1476. 

1477. 

1478. 

1479. 
1490. 
1481. 
149?. 
1433  . 

1484. 

1485. 

1486. 
1 4 9 7 • 
1488. 
1489  . 
1490. 
1491  . 

1492. 

1493. 

1494. 

1495. 

1496. 
1437. 
1499. 

1499. 

1500. 
1 6 J l . 

1502. 

1503. 

1504. 

1505. 

1506. 
1 507  . 
1503  . 

1509. 

1510. 

1511  . 

1512  . 

1513. 

1514. 
1516. 
1516. 
151  1 . 
1513. 
1519. 
152.3. 
1521. 
1522  . 

1523. 

1524. 


C INCUMdEM  6 GLUT  I ON.  ALSU  UUTPgT  OdJ.  VA  L.  FOB  THIS  SGLUT  ION. 

CALL  PCLGCMjT  1ME,  ITOTI 
TGPT  = jTIMu/lGU. 

WR  I TF  (6,1)  TOPT.IVAL 

1 FORMAT  i'  TIME  = • , F7.2 » ' SECONDS:  INCVAL  =*,110) 

IF  ( I FEAS  .EU.  1)  GO  TO  500 
TF1RST  = TUPT 
IFVAL  = I VAL 
1FEAS  = 1 
5 CO  INCVAL  = (VAL 

00  10C0  J = 1 ,NCUL 
IF  (K  IN8ASIJ) ) 600,  700, 1000 
6CC  INCUMB(J)  = IDINTI XUB( J) ) 

GO  TO  ICuO 

7CC  INCUMB(J)  = IDIN7I XLB< J) ) 

10CC  CONTINUE 
C 

00  1100  1 = 1 , NR  Cw 
ICOL  = OH l I J 
I NCUM8 ( 1LUL ) - IPART(I) 

11CC  CONTINUE 

c 

C CURRENT  PROBLEM  NO  LONGER  OF  INTEREST 

C 

20 CC  MSTAT  = ul 
RETURN 
END 

SUBROUTINE  PcNLT  3 

c 

C COMPUTES  TOMLIN'S  IMPROVEu  UP-  ANO  GOWN-  PENALTIES  AND  THE 

C GOV0RY  PcNALTY  fur  each  nuninteger  basic  variable.  ALSO  CHECKS 

C FOR  FuRCEO  BRANCHES  ON  BOTH  cASJC  AND  N0N8ASIC  VARIAbLES.  IN 

C THE  ABSENCE  OF  FORCED  BRANCHES  ON  BASIC  VARIABLES,  The 

C BRANCHING  VARIABLE  IS  CHOSEN  TO  BE  THE  ONE  WITH  LARGEST 

C ASSGCIATEO  UP“  Cft  GOwN-PENALTY.  THE  FORWARD  BRANCH  IS  TAKEN  IN 

c the  bisection  opposite  to  the  maximum  penalty,  the  nuoe 

C CORRESPcNOI NG  TC  THE  BRANCH  IN  THE  SAME  DIRECTION  AS  THt 

C MAXIMUM  PeNALTY  IS  AODEO  TO  THE  LIST,  TO  BE  EXAMINED  LATER. 

C The  branching  process  itself  is  carried  ojt  in  subroutine 

C BRANCH,  whluH  is  called  frum  subroutine  PENLTS. 

c 

IMPLICIT  kcAL*4  (A ,C,E-H,0,P,R-W, 2)  , REAL*8  (6,D,X,Y), 

1 INTEGER*4  (I-N.U) 

INTEGER “2  UH,KINBAS,lA,LE,  IA,  IE 
INTEGER*^  IPART, INCUMB, i VbND , I V 10 , 1 CuNO 
DOUBLE  PRECISION  E14D00) 

REAL  A ( 20 00  ) 

REAL  PL'(oO)  ,PJ(6D)  ,PG(60) 

CCMMCN/ocOCK/  tTOL  2E,2TOLPV,2TCOST, 2T0LR J , ZTOL SM , ORO , QMA , wB A ,QF  I , 

1 CEU, CBL.UA ,UPL ,WMI ,02  ,91, OF. UN, QU, NR MAX , NEMAN, 06, UL, 

2 uE ,UH,uL,UO,OK,UM,UG,NTMAX 

COMMON  / I'LLcKt/  UFP  ART  (60  ),  REV  BND,  INCVAL  , ICOL  , LIS  Tl  , I VAL,  I DIR  , 

1 1 PARTI  122 ) , INCUMBI 122) , IV3NDI 500) , I VID (500) , 

2 10BN0I 500 ) ,NPI VOT, IP  TYPE ,RCOST, IF  EAS 
CCMMCN  DSUM.UPRUD, LY,0c,0P,8(o01,X(o0),Y(60),YTEMP(o0),A,E, 

1 GCMlisf  , ICNAMI  122,2)  ,NAME(2C)  ,NTEMP(  20  ) ,MS  TAT,  I OBJ,  IKUwP, 

2 1 V IN, IV OUT  , ITCNT , INVFRU,  1 T RF «U , 1 FF E l, JCOL  P , N» 0 W , NCOL , Nt LE M, 

i Nt  T A , NL t L t M , NL  l TA.NUELcM  ,NUE  T A , JH ( 60 ) , K I N B AS ( 1 22 ) , L A ( 122 ) > 

4 LL I 1002  ),  1A ( 2000) , 1E( 400  0)  ,XLB< 1 22 ) ,X UB ( 1 22 ) 

DO  10  t=l,NKOw 

IR  (CFPAKT(I)  .LT.  ZTOcZE)  GO  TO  5 
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♦ 

1525. 

PU(  I)  = 1 .C6 

1 526. 

P0( !)  * l.fcfc  ; 

1527. 

P G < I ) - l.fco 

1525  . 

GO  TO  LO 

1529. 

5 

PJIII  = 0. 

1530. 

P0< 1)  = 0. 

t 

1531  . 

PG( I)  = 0. 

\ 

1532  . 

1C 

CONTINUE 

! 

1533. 

C 

1534. 

DO  1CCC  »=1  , NCOL 

1535. 

IF  (KINBAj(J)  .GT.  0)  GQ  TO  1000 

1535. 

IF  uxuatj)  --  XL U 1 J 1 1 -LE.  ZTOlZE)  GO  TO  1000 

1537. 

CALL  LNP At, K ( j I 

15  33. 

CALL  F TRAN ( 1 1 

1539. 

IF  (KlNBAitJJ  .EL}.  0)  GO  TO  30 

1550. 

00  20  1=1, NRUW 

1551  . 

2C 

Y(I)  = --Y  11  ) 

- 

1542. 

C 

1543. 

C 

CHECK  FUR  FQRCtO  BRANCH  ON  XJ 

1544. 

3C 

IF  (J  .Lt.  NKOk)  GC  TO  50 

1545. 

OP  = XdOBJ)  - YILOBJI  ZTULZE 

1549. 

I V A L = I D I NT  1 OP ) 

1547. 

IF  (OP  .LT.  0. 1 IVAL  = IVAL  - 1 

1543. 

IF  (IVAL  .OT.  1NCVAL)  GO  TO  50 

1549. 

I 01 R = 2#KINbAS<J)  + l 

1550. 

if  ( i c ik  .eg.  ~n  revbno  = snguxubijii 

1551  . 

IF  UCIR  .to.  1)  REVBNO  = SNGL  ( XL  9(  J ) ) 

1552  . 

ICOL  = J 

1553. 

CALL  BRANCH 

1554. 

GO  TO  1000 

1555. 

C 

1556  . 

5C 

00  500  1=1, NkOk 

1557. 

IF  IJHII  .Lt.  NROwl  GO  TO  500 

1553. 

IF  (DFPAk  Till  .LT.  ZTOlZE)  GO  TO  500 

1559. 

C 

1560. 

c 

COMPUTE  UP  PENALTY  FOR  X(ll,  XJ 

1 561  . 

ICC 

IF  (Yd)  .GT.  -ZTOLPV)  GO  TO  200 

1562. 

OE  = YlluB  J )*(  OF  PA  FTd  1 - l.l/Vdl 

1563. 

IF  (OE  .lT.  Y(IOBj))  OE  = YdOBJ) 

I5u4. 

[F  (OE  .If.  PUUI)  PUd)  = Dt 

1565. 

GO  TO  300 

1 566  • 

c 

1 567. 

c 

COMPOTE  DU  wN  PENALTY  FUR  X(  I ) , XJ 

1563. 

tCC 

IF  (Yd)  .LT.  ZTUl  PV)  GO  TO  30U 

1569. 

OF  = YdUBJ)*DFPAk  Td  )/Yd  1 

1579. 

IF  (Ot  .LT.  YllOBJl)  OE  * YdOBJ) 

1571  . 

IF  (OE  .LT.  POd  1)  PO(I)  = OE 

1572  . 

c 

1 5 7 3 . 

r 

LUMPUTE  GUMCRY  PENALTY  FOR  XIII,  XJ 

15  74. 

3CC 

OP  = CAB5< Y ( I)  1 

15  76. 

NTEMPd)  = 1 J I NT  (DPI 

15  74. 

OP  = OP  - FLOAT!  NTtMPl  1 ) ) 

1 577. 

IF  ((CP  .Lt.  ZTQLZE)  .UR.  (UP  . Gt  . l.-ZTOLZEl)  uO  TO  500 

1 4 73. 

IF  (Yd)  .LT.  0.  J DP  = i.  - OP 

1 5 79. 

IF  (OP  .GT.  OFPAW  T ( 1 1 I GO  Tu  31C 

1589. 

OE  = Y<  IUBJ)»L)FP  Ak  Td  )/DP 

1531  . 

GO  TO  32  o 

1582. 

3 1 C 

OE  = Y(IUBJ)*(1.  - DFPAK T< I 1) /(  1.  - OP) 

1533. 

32C 

IF  OE  .LT  . PGII  ) ) PGII  ) = Dfc 

1584. 

C 

1585. 

5C0 

CUNT  I KUc 

t 

fW  t * • ^ 
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1596. 
1537  . 
1533. 
1580. 
159). 

1591  . 

1592  . 
1591. 

1594. 

1595. 

1596. 

1597. 
1590. 
1594. 
1600  . 
1601. 
1602  . 
VfcOi. 
1604. 
1605  . 
1606. 
1607. 
1600  . 

1609. 

1610. 
lhll  . 
1612  . 
1613. 
1 1 1 4 . 
16  15. 
1616. 
1617. 
1610. 

1619. 
162  3. 
1621  . 
1622  . 
1620  . 

1624. 

1625. 

1626. 
1627. 

1620. 
162°. 
16  30. 
1631  . 

1632. 

1633. 
1604. 
16  3 4. 

1636. 

1637. 
16  3 3. 
16  3°. 
16  40. 
16  41  . 

1642. 

1643. 

1644. 
1646  . 
1646. 


1CCC  CUNTINUc 
f 

C CuMPoTE  LARGEST  GQMURY  RcNALTY  AND  TcST  FOR  FATHOMING 

PEN  = 0. 

DO  20 CO  1 = i , NR  OK 

IF  IJKIi  .lE.  NRG W t GO  TO  2000 

IF  (PGU)  -6T.  PEN)  PEN  = PGU) 

20CC  CONTINUE 

OP  = XUUBJI  - PEN  ♦ LTClLZE 
I V A L = lOlNTlOPl 

IF  (DP  ,lT.  0. 1 I V Al  = I VAL  - 1 
IF  (IVAl  .GT.  INCVAL)  GO  TO  3000 
I 0 I R = J 
RETURN 
C 

C PROBLEM  NOT  FATHOMED:  CHECK  FOR  FORCED  BRANCHES  ON  XU) 

3000  N TEMP (21  = o 

DO  39C0  l=l,NROw 
IF  (JRU)  .LE.  NRUrt)  GO  TO  3900 
IF  (PUD  .GT.  PD(  111  GO  TO  5600 
DP  = X(IOBJ)  - PU(I)  ♦ 2T0L2E 
NTEMP(l)  = IoINT (DPI 

IF  (tip  . L T . 0.1  NTEMPU)  = NTEMP(l)  - 1 
IF  (NTEMP(i)  .GT.  INCVALJ  GO  TO  3900 
C EuRCLD  BRANCH  JP  ON  XU) 

I VAL  = NltMP(l) 

I 0 I R * -1 

NTE«P(  1)  = IPART (I  ) * 1 

GO  TO  3700 
C 

jecc  op  = xuotsj)  - Poll)  + ltolle 

NTEMPU)  = lOINT(UP) 

IE  (1)6  ,lT.  0.)  NTEMPll)  = NTEMPll)  ~ 1 
IF  (NTEMPU)  .GT.  INCVAL)  GO  TO  3900 
C FORCED  BRANCH  DOWN  ON  XU) 

I VAL  = NTtMPI 1 ) 

I 0 1 R * 1 

N TEMP  (1)  - IPART ( I ) 

37C0  I ROWP  = I 

ICOL  = JH( IFOWP) 

RE V BMC  = FluAUNTE  MP(  1)  ) 

NTEMPI2)  = 1 
CALL  BRANCH 
39C0  CONTINUE 

IF  (NTEMPU)  .GT.  C)  GO  TO  5000 
C 

C NO  FORCED  BRANCHES:  CHOOSE  6RANCHING  VAR.  AND  DIRECTION 

PEN  = C. 

I*«OWP  = o 

C DETERMINE  BASIC  VAR.  XUROwP)  with  MAX.  JP-  UR  DOWN-PENALTY 

DO  49C0  I = 1 ,NR(jW 
IF  ( J F I I J .LE.  NKUK  ) GU  TO  4900 
IF  (PUI)  .GT.  PDIl))  GO  TO  460C 
IP  (PCU)  .LE.  PEN)  GO  TO  4900 
PEN  = POU  ) 

I ROWP  = I 
10IR  = -l 

NTEMPU)  = IPART  (I  ) » 1 
REVBNC  = FLOATINTE MP(1) ) 

GO  TC  4900 

46 C C IF  (PUU)  .LE.  PEN)  GO  TO  4900 
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' ''  ~ 


1687. 

1683. 
1689. 

1650  . 

1651  . 
1652. 

1652. 
16  54. 
1656. 

1656. 

1657. 

1653. 
165‘>. 
1660  . 
1 6 o l . 
1662. 
1662. 

1664  . 
1665. 
1665. 
166T  . 

1665  . 

1669. 

1670. 
1671  . 
167?  . 
16  73  . 

1674. 

1675. 
1676  . 
1677. 
16  78  . 
1679. 
1630. 
1681  . 
1632. 
16  33. 

1684. 

1685. 
1656. 
1687. 
16L8. 
1689. 
16°!. 
1691  . 

1692. 

1693. 
W 94. 
1693. 
1696. 
lor’7. 
1693. 
1699. 
1 700. 
1701  . 
I 702  . 
1 7C3. 
1 705. 
1 705. 
1 706. 
1 70  7 . 


PEN  = PU< 1 ) 

1R0WP  = 1 
1 D ! 5 = 1 

NTEMP(l)  ^ 1PAR1  tl  ) 

REVbNO  = F LCAT (N  TE  HP 1 1 ) ) 

49CC  CONTINUE 

IF  URCwP  .01.  ol  GO  TO  8950 

C EACH  UP"  rtilu  DO  ON— Pt  NAl  TY  .E3.  0.  ( DUAL-i)EGENFRAi,Y  ( CHOOSE  ANY 

C NCNINTcuER  BASIC  VAR.  AS  BRANCHING  VAP.. 

DC  49  1C  lRLhP-1 ,NRCw 
IF  tJFUFUViPl  .L5.  NRUW)  00  To  8910 
IF  (OFPAFTURUOPJ  -GE.  ZTOLZE)  GO  TC  8920 
8910  CONT ! M.'l 
4<3PC  PEN  = Pul  1 KU«P  ) 

IDIP  = 1 

NTFMP(l)  = 1 P APT  II  RuwP  1 
KEVBNC  = FLOAT (NTE MP( 1 I I 
89  5 C ICOl  = OH l IROrtP) 

OP  = X ( tUB J I - PEN  ♦ ZTULZE 
NTEMPU1  = IDINT  (DPI 

IF  (OP  .LT.  0.)  NTEMP(l)  = NTEHP(l)  - 1 
IF  (IVAL  .oT.  NTEMP(il)  1VAL  = NTEMP(l) 

C BRANCH  ON  ChOSEN  VARIAaLt 

CALL  BRANCH 

5CCC  IF  ( l C IK  .EU.  -1)  IPTYPE  = 0 
IF  ( T C IR  .EC.  1)  I F TYPE  * -1 
RETURN 
ENO 

SUBPOlTINt  BRANCH 
C 

C PPANCHLS  OH  VARIABLE  X1ICUL)  AS  DETERM1 NE  C IN  SUBROUTINE  PENL  T S 

C 

IMPLICIT  RCAL*8  (A ,C,t-H,0«P,R-R, i)  , RE  AL*  8 (B,D,X,Y), 

I IN  TEGER*8  (I-N.Q) 

INTEGER*?  JH,MNBAS,LA,LE,  IA,  IE 
INTEGER*?  IPART, IN  COMB, I VBNO  , I V 10 , 1 C9ND 
DOUBLE  PRECISION  E 18000) 

REAL  7 ( ?oOO  ) 

C0MM0N/3LUCK/  ZT  GL  ZE.ETOlPV.ZTCCsT,  ZTOLRJ,  ZTOLSM , QRO,  OMA.Uca  ,QF  I , 

1 GEO,  OBL.gA  ,OPL,  (JMI.O?  ,0 1 , QF  , QN  , QU,  NR  MAX  ,NEMAX  , Q6,  UC, 

? uit  »QH,GL,00»QR,UM,(jG,NTMAX 

COMMON/oLUCK?/  OFP ART(60) .ReVBND, INCVAL. ICUL ,LISTL. I V AL, I DIR , 

1 I PART (1?? 1 , INCUMBI 1?2) , I V6NDI  500)  , I VIO (500) , 

2 I UaNUt 500) ,NPI VUT, IP  TYPE ,RCCST, IF  EAS 
COMMON  J5UM i UPRO 0, 0 Y , OE , UP , B ( oO 1 , XI oO ) , Y ( 6 01  , Y Tc MP t bO ) , A , E , 

1 s DM  INF, JC  NA  M ( 124 , 2 ) , NAM E ( 201  ,N TEMPI  20  I ,MS  TAT  , I 08  J , IROWP, 

2 I v IN, I VOGT , I TCNT, INVFRQ, ITkFRU , IF  FEZ, JCOL P,NK  UW  »NCUC , NELE  M, 

3 NlTA.iVLcL  EM  .NLETA.NJElEM  ,NUE  TA  , JH ( 60)  , KINBASl  1 221  ,L A (1221  , 

8 LEI iGG2 ), I A (20001  , I E » 800 G I , x L8 ( 1 2 2 ) , XUB ( 1 22  I 


C 

C i CCL  1N0EAES  BRANCHING  VARIABLE  CHOSEN 

C 10 1 R INDICATES  BRANCHING  DIRECTION  CHOSEN 

c 

C AUU  UPPOSI Tt  DIRECTION  TO  LIST 

LISTL  - LISTL  + l 

IF  IlClh  .EU.  -1  ) IVBNU(LISTL)  •=  ID  IN  T(  XLB  ( I COL  I ♦ zTOLZE) 

IF  I I C I K .t4.  1)  1 VBNDt  L 1 STc 1 = IDINT(XUB( ICOL)  * ZTOIZE) 
IVIOtLISTLl  = ID  IR  * ICOL 
IOBND(LISTl)  = IVAL 
C 

C REVISE  BuJNUs  UN  BRANCHING  VARIABLE  FOR  FUR^ARD  DIRECTION 


ir’1  — 
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170). 
1709  . 

1710. 
1711  . 

1712. 

1713. 

1714. 
1714. 
1 716. 
1717. 

1711. 

1719. 

1720. 

1721  . 

1722  . 

1723. 

1724. 
1 725. 

1726. 

1727. 
1723. 
1 729. 
17  3 0. 
1731. 
17)7. 
17  3). 

1734. 

1735. 
17  )6. 
1 7 3 7 . 
17  13. 

1739. 

1740. 

1741. 

1742. 
1743  . 
1744. 
1 745  . 
1 7 46. 
174/. 
1 743. 
1749. 
1 75). 
1751  . 

1752. 
17  53. 
1 7 o ♦ . 

1753. 
1 7 56. 
17)7. 
1 753. 
1739  . 
1 760. 
1761  . 
1 762  . 

1763. 

1764. 
1 765. 
1 766. 
1767. 


IF  11CIK  .64.  -1)  XLb(ICOL)  = L)  CL  E ( R f VBNQ  ) 

IP  (Id*  .Ex.  1)  XJb(lCOL)  = 06  lE  I R tV  BN0  ) 

RETURN 

ENO 

Sl)8P0LTIUc  BK.TRAK 
C 

C BACKTkACnS  TO  i ELECT  A PROMISING  ( JNF  A T HOMED)  NODE  FROM  THE 

C LIST  OF  STJRcD  NOoES.  LAST-  IN-F  IRST-OJT  ILIfOl  SELECTION  RULE 

C IS  FMPLUYcO. 

C 

IMPLICIT  REAL*h  (A,C,l-H,U»P,R-R,  2)  , REAL*!)  (B,0,X,Y), 

1 1NTEGEK*4  U-N.U) 

INTEL ER*2  JH,KIN3AS,LA,LE, (A, l£ 

INTEGEP*2  I PART,  INCL'Mb,  I VbNJ,  I V ID.ICttNO 
DOUBLE  PRECISION  E(4UO0) 

REAL  A (2000  ) 

COMMON/oLUCK/  lT  UL  ZE.aTULPV, ZTCOST,  2T0LR  J , 2T0L  SM  , QRO,  QMA  , OB  A ,0F  I , 

1 »EOi  OBL.UA ,uPl,0M 1,02,01 ,JF, QN ,QU, NRMA X ,NEMAX , OB, JC, 

2 xE  , x H , xL  r OU.UR.UM  » u G » NT  MAX 

COM M('N/BLUCK2/  OFP  AkT  loO)  ,kEV3N0,  INCV  AL , I C OL  , L IS  TL  , 117  AL  , I 01 R , 

1 I PART  (122  ) , INCJM8(  122)  , I VBN04  500)  , IVIDC  500), 

2 I 06  NO (500)  , NP  I \/0  T , IP  TYPE  ,RCOST,  IFEAS 
COMMON  OSUM, OPkU D» CY.OE, OP,B( bO ) , X<  60) , Y(60)  ,YTEMP(oO) ,A,E, 

1 5 JM INF, IC  NA  M ( 122, 2) .NAME (2  0)  ,NTEMP( 20 ) ,MS TAT, I OBJ, IROWP, 

2 1 V IN,  I 700  T,  1 TCliT , INVFRJ,  I TRF  R3  , l F FE Z,  JCOL  P, NR OW , NCUL,  NELEM, 

3 NcTA.NccLCM  ,NLETA .NUElEM.NUE  TA, JH (60)  ,KINBAS( 122) ,LA( 1221  , 

4 Lfc  ( 1002  > , I A (2000)  , IE  (4000)  ,XLB(  122  > ,X’JB(  1 22) 

N TE MP  ( 3 ) = 0 

C IF  LUt  IS  EMPTY,  RETURN  l COMPUT  AT  IONS  COMPLETED) 

5C  IF  (LISTl  .EQ.  0)  RETJRN 

IF  ( 1 CPNJ ( L 1ST  L 1 . LE.  1NCVAL)  GC  TO  2000 
C 

C GET  NEXT  NUDE  f RCM  LIST 

ICOL  = 1 7 1 D ( l I ST  L ) 

IF  (ICCL  .LT.  0)  GO  TO  100 
C 

NTEMP(1)  - IDINT (XLS( ICOL)  + 2T0L2E) 

NTEMPI2)  - WBND(LISTl) 

XL8  < ICCL)  = X:Ju(  ICCL)  c 1. 

X Jt)(  ! COL  ) = FlUATI  NTL-MPI  2)  ) 

IF  (K  I NBA 6 1 ICOL)  .GT.  0)  GO  TO  1000 
K I N B A S ( ICOL)  = 0 
N T 6 M P ( 3 ) = I 
GO  TO  lGuO 

f 

ICO  ICOL  = -ICOL 

NTEMP(I)  = UINT  (XxB(  ICOL)  ♦ ZTOLZE) 

NTEMPI2)  = I 7 B NO ( L 1 S T L ) 
xjB(ICCl)  = xlB(IClL)  - i. 

XLB(ICCL)  = FLUATl NTEMP12) ) 

IF  (K  INbASl  ICOL)  .GT.  0)  oU  Tu  1000 
RIMeASUCOL)  = -l 
NTE  MP ( 3)  = 1 
C 

10CC  IVlDlLIsTL)  ^ -IVIC(LlSTc) 
tVBNOlLUTd  - NTEMP(  1) 

I 0t)NP  (LlSTL  ) = -10000 

c 

C UPDATE  X 

IF  ( N TEMP ( 3 ) .t«.  0)  RETJRN 


16  47. 

1648. 

1649. 

1650. 
1651  . 
16  52. 
1650. 
16  54. 
I65i  . 

1656. 

1657. 
1655. 
1650  . 
1660. 
Ifcol  . 
1662  . 
1660  . 

1664. 

1665. 
1 66 6 . 
166*. 
1665  . 

1669. 

1670. 
1671  . 
1 6 7,7  . 
16  70. 
16  74. 
1675. 
1676  . 
1677. 
1678  . 
16  79. 
1680. 
1681  . 
1682. 
1680  . 
168<«. 

1685. 

1686. 

1667. 

1668. 
1699  . 
160  0. 
1 6°  1 . 
1692  . 
169  0. 
1694  . 
1695. 
1696  . 
Ui''7. 
1690. 
1699. 

1 700. 
1 701  . 
1 702. 
1 7C0. 
1 704. 
1 705. 
1 706. 
1 70  7 . 


PEN  = PUl  I > 

IROWP  = I 
IDIR  = 1 

NTEMP(l)  = IPAkT  (1  ) 

REV6N0  = FLOAT  (NTEMPU)  I 
49C0  CONTINUE 

IF  (IRCnP  -Or.  6)  CO  TO  4950 

C EACH  OP—  ANu  ODwN-PtNAI_TY  .63.  0.  ( JUAL-0 EGENERACY ) CHOOSE  ANY 

C NCMnTcgsR  BASIC  VAR.  AS  6KA  NC  hi  NG  VAP,. 

OC  49  1 C IROv.P=l,NkCR 
IF  ( J H 1 IROWP 1 .IE.  NRUW)  GO  TO  4910 
IF  (DEPART  ( IR'JGP  ) -GE.  ZTOLZE)  GO  TC  4920 
4910  CONTt MX 
49?C  PEN  = PU( IROWP) 

I  D!  P = 1 

NTEMPtl)  = 1 P ART (I RGWP 1 
REVBNC  = ELOATINTEPPI 1)1 
49 5 C ICOL  = JHl  IROWP) 

DP  = XI1U6J)  - PEN  + ZTUL2E 
NTEMPll)  = 1DINT10P) 

IF  (DP  .IT.  0.)  NTEMPll)  = NTEMPll)  - 1 
If  (IVAl  .01.  NTEMPtl))  I VAC  = NTEMPll) 

C BRANCH  ON  CHOSEN  VAR  1 AaLE 

CALI  eRANCH 

5CCC  IF  ( I C (R  .EG.  -1)  IPTYPE  = 0 
IF  (ICIR  .EG.  1)  I FTYPE  = -1 

return 

END 

SUBROUTINE  BRANCH 
C 

C ePANCHLS  UU  VARIABLE  X(  ICUU  AS  DtTERMINEC  IN  SUBROUTINE  PENL  T S 

C 

IMPLICIT  RcAl*4  (A  ,C,t-H,U,P,R-R, Z)  , REAL*3  (3,D,X,Y>, 
l INIEGER*4  (I-N.Q) 

I NT  EG  £R*2  JH,\lNBAS.LA,Lc, IA,  IE 
! NTEG  ER*2  I PART, INCOME, I VBNOt IV lO.ICBNO 
DOUBLE  PR  tC  1 6 1 UN  £(4000) 

REAL  A(2U00) 

COMMON/b  LuCK / ZTOL  ZE.ZTOLPV.ZTCCiT,  ZTOLRJ , ZTOLSM ,QRO, JMA.GbA ,3E I , 

1 WED, CBL ,0 A , QPL  * 3MI » UZ ,31 , QF.GN.GU. NP  MAX .NEMAX , 36, 3C, 


C 

c 

c 

c 

c 


c 

c 


2 GE  9 3 H , gL  , 30 , 3R , wM  , OG , N T MAX 

COMMO  N/jL OCR  2/  DFP AR T ( 60 ), RE V6ND . I N CV AL , I C GL , L IS TL , l V AL  , I DI R , 

1 1 PAR  1 1 122 ) , INCUMBI 12  2) , I VBNDI  500)  , 1 V1D (500) , 

2 I UoNlM  500) , NPIVOT, IPTYPE.RCOST, IF  EAS 
COMMON  JSUM.UPRUD, OY , Ofc , DP , B ( oU ) , X( oO ) , Y(  6 0)  , Y Tt  MP  l 6 0 ) , A , E , 

1 SJM1NP, IC NAM (122, 2), NAM 6 (201 ,N TEMP ( 20  > ,MS  TAT , I OB J , IROWP, 

2 ! v I N, 1 VCUT , I TCNT , INVFR3, ITrFRg , IcFEZ, JCOL  P,NROW,NCUL, NELEM, 

3 NlTA.NLELEM  ,NLETA,NUELEM  ,N(jETA  ,JH(60)  .KINBASI  122)  ,LA(  122)  , 

4 LEI  i.002  ) , I A 12000)  , IEI4000)  «Xl6(122)  ,XUB(122I 

ioCL  INOtXES  BRANCHING  VARIABLE  CHUSEN 
ID  I H INuICATES  BRANCHING  DIRECTION  CHOSEN 

ADO  OPPOSITE  DIRECT  I ON  TO  LIST 
LISTL  = LISTL  ♦ 1 

IF  (IClR  .EG.  -1)  lVBNU(LlSTL)  = 1 0 IN T ( XLB ( I COL ) ♦ ZTOLZt) 

IF  (ICIR  .fcR.  1)  I VBNDI LISTl)  = I Dl NT ( XUB ( 1CCU  + ZTOLZE) 
IVIDILISTil  = ID  (R  * ICuL 
lOBNOILlSTLl  = IVAL 

RtVISt  BOUNUi  UN  BRANCHING  VARIABLE  FOR  FORWARD  DIRECTION 


170). 

1709. 

1710. 

1711. 

1712. 
1 713. 
1 716. 
1 7 l i . 
1716. 
1/17. 
1711. 
1 7lr». 
1 720. 
1721  . 
1 722. 
1 723. 
1 726. 
1 725. 
1 726. 
1 727. 
172). 
1 729. 
17  30. 
1731. 
1737. 
1731. 
1736. 
1736. 
1 7 36. 
1 7 3 7 . 
17)3. 
1739. 

1760. 

1761. 

1762. 
1 763  . 
176V. 
1 766  . 
1 766. 
1 76T. 
I 763. 
1769. 
1 7 50. 
17  51. 
1762. 
1 753  . 

1756. 

1 7 55. 
1 7 So  . 
1 757  . 
1 753. 
1759. 
1 7 <n. 

1 761  . 
1762. 
176). 
1 7 66  . 
1 765. 
1 766. 
1 767. 
1 76  1 . 


IF  I I C I K .Ev.  -1)  XLbl  IlUL  ) U eL  E ( k E V UNO ) 

IF  ( I c !k  .E*.  1)  xJb(ICOL)  = JB  l£  ( * tv  BN0 ) 

HET'JPF 

END 

SUBPOLTINc  BkTRAK 
C 

C BACK  Tn.  AC6.5  TU  i ELECT  A PROMISING  1 JNF  A THU  MED)  NODE  FROM  THE 

C LIST  uf  STJRcU  NOuLS.  LAST-  IN-F IRST-OJT  (LIFC.J  SELECTION  R.Jl  E 

C IS  EMPLUYuJ. 

c 

I MP1  I c I T RtAL»H  lA,C,L-H,0,P,R-k,  2)  , REAL *8  (B,D,X,Y), 

1 INTEGER**-*  ( l— N» 0) 

!NTEGER*2  Jh  , K IN  r)A  5 , i_A  , L E , I A , I 5 
INTLGE®*2  IPaKT, I N L 0 Mb , IVbNO, IV  ID , I CBND 
OUUBLE  PFEClilUN  2(6060) 

REAL  A (2000 ) 

COMMON/oLUCK/  lTui.  2E,2TL)lPV.  2TCUST,  2TJLRJ  , 2T0LSH  , QPO, QMA , uBA ,QF  l , 

1 .cOi  JBL.OA  , jPl  , JM  1, 02  ,01  , JF  , QN  , QU , NR MA X ,NE MAX , OB,  J C , 

2 CL  , 6 H , OL , OLi , (JR  , QM  , OG , NT  MAX 

COMMON/bLUCK2/  i)  FP  Ak  T(  oO  ) , k E VBNQ , IN  C V AL  , I C OL  , L I S TL  , I V AL  , I 01 R , 

1 1 PART (122 ) , 1 NCUM81  12  2) , I VBND(  500) , I VID(  500), 

2 I Ub NO (500) ,NPI VOT, IP  TYPE .RCOST, IF EAS 
COMMON  DSJM  , OPkU 0,  CY,uE,uP,B(60J,X(60),Y(60),YTEMP(o0),A,E, 

1 iJMINF, ICNAM( 122,2) ,NAME( 20)  .NTEMP ( 20 ) ,MS TAT, I OBJ,  IROMP, 

2 I V IN, WOO T, ITCNT, INVFRO, 1TRFR3 , IFFEZ, JCOL P,NPOW,NCUL, NELEM, 

3 NlTA,N,_cLlM  ,NLETA,NUElEM,NUE  TA, JH (60)  ,K1NBAS( 122) ,LA(  122)  , 

6 Lfc  ( 1002  ) , I A (2000)  , IE  (6000)  ,XL3(  122  ) ,X'J3<  l 22  ) 

N TEMP  l 3 ) = 0 

C IF  LI  ^ T IS  EMPTY,  RETURN  ( CuHPUT A T IONS  COMPLETED) 

5C  IF  (USTl  .EC.  0)  REIJKN 

IF  ( ICBNJ(LISTl)  .Lt.  1NCVAL)  »C  TO  2000 
C 

C GET  NEXT  NUDE  FROM  LIST 

ICOL  = IVID(lISTL) 

IF  (ICCL  .LT.  0)  GJ  TO  100 
C 

NTEMP(l)  = I DINT ( X L8 ( ICUL ) ♦ 2TOL2E) 

N TE  MP  ( 2 ) = WBNO(LISTl) 

XLB ( ICCL)  = XUo(  ICCL ) v 1. 

XJBUCOL)  = FLOAT!  NTEMP(2)  ) 

IF  (K  INBAb ( ICOL)  .GT.  0)  GO  TU  1000 
K I NB  A S ( ICUL)  - 0 
NTEMP ( 3)  = 1 

GO  TO  1OO0 
f 

ICO  ICOL  * -ICUL 

NTEMP  ( 1 ) - UINT  (X  oe<  ICUL)  ♦ 2TOL2E) 

NTEMP  ( ?)  = WONU(LISTL) 

XUO(ICCL)  = XLB(lCcL)  - i. 

XLB ( I CCL ) = FLUAT(NTEMP(2>> 

IF  ( K I NBA J l ILUL ) .OT.  0)  GU  To  1000 
K I NBAS (ICUL)  - - l 
NTEMP ( 3)  = 1 
C 

10CC  IVID(LIjTl)  ^ -IVIC(LISTL) 

I VBND ( L I oTL  ) = N TE  MP( 1) 

I 06 ND ( L 1 STL ) = -10000 
C 

C JPCATE  X 

IF  ( N TgMP ( 3 ) .tO.  01  RETURN 
lALL  JHIFTPU  ,3) 
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■=~ . m 


I ft'-* . 


JC  9CC0  J-i,NCuL 


1 // ». 
I 7 M . 


in). 

I 7 7 . . 
|Mi. 
I / 7 -»  . 
t7/». 
17  79. 

17  7«. 
t 78  >. 
1 781  . 
1798. 
I 7d3  . 
I 784. 
1 786  . 
I 73*.. 
1787  . 
1783. 
1 780. 
170). 
L 701  . 
1 707  . 
1703. 
1 79^. 
I 798  . 
1 796. 
1 797. 
1 793. 
I 700. 
130). 
1301. 
1 ’07  . 
I JO  3 . 

1304. 

1305. 
1 305. 
1 807. 
1803. 

1909. 
1810. 
1811  . 
161.7. 
1 .9  1 3 . 

18  14. 
1818  . 
1818  . 
1817. 
1813  . 

1910. 
1870. 
1381  . 
1927. 
18  23  . 
1824. 
1 H ~ > . 
1827,. 
1827. 
1?  7 3. 
182  7. 


If  ( K IXo  A i ( J 1 ) be,  JO  , 8 7 JO , 90u0 
8t.CC  i)E  = xotitj) 

GO  TO  8/jJ 
97CC  OF  = XLo(J) 

8 7 ;C  IL  = LA(J> 

KX  = LAIJ+1)  - 1 

00  88CC  I-LL,M\ 

1 ft  = I A C l ) 

F8CC  Y(IS)  = Y l I A ) - At  1 ) *Dc 
OOCC  CONTINUE 

CALL  FTRAN(i) 

CALL  SfIIF  TR  t 3 , 2) 

RSTUF X 

c 

C NOCE  FA?  HGMcJ • JPOA  ft  VAR.  BOUNDS  AND  BACKTRACK  AGAIN 

20C0  ICOL  = IVlG(LlSTc) 

IF  ( ICCL  .LT.  0)  i>0  TO  2100 
C 

NTEMp(i)  = i V8ND(L  ISTc) 

IF  (K  INbASl  ICOU  ) 2010,2050,2050 

2010  NTEMP  ( 3)  ■=  1 

OP  = XUBlICOL)  - XietlCUL) 

DY  = FLUA T < NtcMP ( 1 I ) - X08<  ICUL  ) 

IF  (OP  .IT,  UY  l K 1 NBAS(  I COL ) = 0 
2C5C  XJ8UCGL)  = FLUATt  MEMP1  l ) » 

GO  TO  3000 

c 

2ICC  ICOL  *=  -ILJl 

NTEMP(l)  = IVBN&IL  ISTL) 

IF  (X  INdaS(  U.JL)  ) 2150,21  10.215C 
21  1C  NTEMP  (3)  = l 

JY  - XLo(lCL’L)  * F LCAT (NTEMRt  ill 
OP  = xUB(Ilol)  - XLdiiCOL) 

IF  (DP  .LT.  UY ) kINBAS(IGUl)  = -1 
215C  XLtMICCL)  = FLOAT! NTeMPt l)| 

C 

3CCC  LISTl  * lIbTL  - 1 
GO  TO  5o 
C 

FND 

subroutine  *r  a pop 

c 

C OUTPUT o OPTIMAL  SOL JT l ON  A NO  CORPS SPONOING  OBJECTIVE  VALUE. 

C 

IMPLICIT  KcAl*4  (A ,C,E-H,0,P,R-R, 2)  , RtAL*8  (8,0,X,Y), 

1 IN  TuGER  *4  ( I"N«  (J) 

INTEGER*2  Jn,  X IN  BA  S,  L A , L t , IA,  It 
I NT  r 1 E KT2  I PART,  INCJMo,  I VBNO,  IV  10,1  C8N0 
00081.  f P R t C I i I ON  c t 4000) 

TEAL  A(lOOO) 

C JMM0N/8LC^X2/  OFP  AKT loO) .RtVBNO,  INCV AL , I COL , L I S TL , 1 V AL , I 0 1 K , 

1 IPARTt  122) ,INCUMBl  12 2)  .IVBNDI  500)  , I VI 0(500) , 

2 I OB  NO l 500) .NPTVOT, IPTYPt , RCOS  T, IFEAS 

C IMMCN  OSJM,OP«oJ, 0Y,OE»OP,a(6O) ,X(60) , Y(oQ) ,YTEMP(oO ) ,A,£, 

1 SOM  Inf , It  NAM ( 122, 2 ) ,NAM£ (20)  ,N TEMPI  20 ) , MS  TAT,  I OBJ , IRO„P, 

2 I V I N,  l VuUT,  I TCNT,  I NVF  K 1. , I T kf  HO  , I FF  t L , JCOL  P,NP  JW.NCOL  , NELE  M, 

! NtTA.NLELfcM  ,NLtTA , NUEL  EM ,NOE TA , UH < oO)  , K I N B A S < 1 22 ) , L A ( I2t ) , 

4 Lt  t 1002),  IA  (2000)  , IE  (4000)  ,XL6<  122)  ,Xl)8(  122  I 

IF  IITCNT  .ot.  irKFxO)  GO  TO  20 

IF  (I  FFAb  . £Q.  0 ) v,U  TO  10 


59 


) 


). 

19  U . 
IS)’. 
H33. 
19  34. 
1833. 

12  34. 
1831. 
I-1  39  . 

13  )). 
1 6 '*  > . 
I a4l  . 
134’  . 
1<’43. 
1 O -*4  . 
1 94  9 . 
l“4->. 
1 347. 
I*5  49. 


<18  I Tf  (o,i) 

1 FORMAT  (//•  Ur*  T i MA  L INTEGER  SOLUTION  X(J),  J - l , . . . , NIC OL ' //  ) 

Wfil^f  (o,2)  ( 1 NO  JMB  ( J)  , J-  1 , NoGL  ) 

7 F 0 B M A T ( i 0 I 3 ) 

WRITE  (o,3)  INCVAl 

3 FORMAT  (//<  MAX  oioJclTIVc  V4LJk  =',  13) 

R E T JR  A 

1C  WRITE  l o , <, ) INLVAl 

4 FORMAT  i*  No  rtAilHLc  SULJTIUN  FuJnO  „!Th  OBJECTIVE  VALJE  , 

1 110) 

KETUR  N 

2C  wPITF  | o , 1 JO  ) 1TC/JT 

ICO  FORMAT  I'  b(MPn.X  ITERATIONS  =*,13,':  C JM  P'.!  TA  T I ONS  TERMINATED.*) 

IF  (IFEAo  .U.  J)  GC  T,J  10 
WRITE  ( o, 1 0 1 ) 

IC1  FORMAT  (//*  dcGT  INTEGER  SULJTICn  FOJNO.IS'//) 

WRITE  (o,2)  ( I NO  J.3  B l J ) , J = 1 , NCOL ) 

RETURN 

END 
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* si##*  <;  4 up  ^ p l ^ P ' J T DATA  10t\  On  AihCH— AMi>—  iSUU  NO  uJOE 


1 1 ICSSSS 

NAM6  SAMPLF 

PCaS 
N 3;3J 
L RCwl 
L »CU11 
L RCA12 
L p Civ  13 
L 9 C a 1 4 
L RCA21 
l 0 C A22 
l RCA23 

I °QA24 

t ® r a 3 1 
I 0 r V>  32 
l RCV.33 
l RCA34 
I a 0A4  1 
L C W 4 2 
L P.  n fc  4 3 
L 3CA44 
CCL'JMNS 


C C L 11 

C6J 

-5o. 

KOI  Wl 

40. 

coni 

RCwl  1 

lo. 

RUW12 

38. 

com 

P C A 1 3 

0 • 

K0wl4 

38. 

:oti2 

OBJ 

- i 1 1 . 

ROW! 

91. 

CCL12 

RCwl  1 

9^  • 

RO  a12 

35. 

CCL12 

PC  a 1 3 

7x. 

ROW  14 

52. 

00113 

C8J 

oj. 

RUA1 

1 C. 

CCL13 

RCWl  1 

41  • 

RO  A 12 

32. 

COL  13 

R C a L 3 

3 j • 

ROW  14 

30. 

CCL14 

CPJ 

o2  • 

K’J  n 1 

30. 

0 C 1 1 4 

RCaI  1 

lo  • 

K'Jw  12 

71. 

COL  14 

°Cwl3 

6 Vy  • 

RUwl4 

42. 

COL  16 

CPJ 

1 J • 

KO  a i 

loO 

COL  15 

HCWi  1 

i D J . 

Ml  A 12 

80. 

COL  15 

RCAl  3 

w'UO  • 

KUwl4 

1 70 

0 0 L 2 l 

TPJ 

-4  j . 

RO  A 1 

20. 

r Cl  2 l 

°C  *2  1 

2 J • 

R0  W22 

2o. 

CCL21 

P C a 2 3 

14. 

RO  a<!4 

9. 

COL22 

rej 

-7. 

R J A 1 

3. 

0012  2 

RC«2  1 

4. 

R0a>2 

3. 

CCL22 

°Cw2  3 

o • 

RO  a2 4 

7. 

00123 

raj 

“•3  3 * 

ROa  1 

12. 

CCL23 

RCw2l 

i o • 

RO  a22 

40. 

CCL23 

«r^23 

iO. 

RO  a 2* 

2 0. 

CCL24 

c°  j 

• J • 

R J A1 

3. 

CCL24 

PC  a2  1 

0* 

ROw22 

8. 

C0L24 

rCa23 

t • 

L.OL25 

C d j 

• l c • 

ROWl 

id. 

0CL25 

9 022 

1<£.  • 

rO«2  3 

8. 

C0L25 

PC  a2  4 

3. 

CCL31 

Ct*  J 

-32. 

K Jhi 

9. 

CC131 

»C«31 

12  « 

R!J  w J2 

30. 

COL  31 

rC'a3  3 

il  . 

RO  a34 

21. 

COL  32 

CPJ 

• * 2 J • 

RUa  i 

25. 
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o o 


OCL32 

KC>31 

O • 

Rjw32 

13. 

COl  32 

PCw33 

O* 

RuW34 

4 . 

CC133 

CPJ 

r0  w X 

1. 

CCL33 

PC  w 3 1 

L • 

R0W33 

3. 

CCL33 

PCw34 

1. 

CC134 

CEJ 

“O  • 

R0W1 

1. 

C0L34 

RCW31 

1. 

RUW32 

1 . 

CCL34 

PCW  34 

c • 

CC135 

CaJ 

*<f  J. 

ROW  1 

10. 

COL  35 

RCW32 

2-*. 

RGwiJ 

19. 

CCL35 

«CW34 

• 

CC141 

CPJ 

— 42  b • 

ROwl 

2 80 

0CL41 

PC*41 

20k/  • 

R0W42 

10J 

CCL41 

PCw43 

t 0 . 

R0W44 

310 

COL42 

09  J 

^42  • 

ROwl 

1C. 

0GL42 

PCW41 

20  • 

R0  w43 

21. 

00142 

PC  *44 

8. 

CCL43 

cej 

-12. 

ROwl 

(3. 

0 0143 

RCW41 

o. 

*0  w42 

20. 

CCL43 

SC  *4  3 

• 

K0W44 

4. 

0CL44 

C9J 

-8  • 

ROwl 

1. 

CC144 

P C *4  i 

2 # 

RJW42 

i . 

C0L44 

RCW44 

6 • 

CC145 

CBJ 

ROwl 

1. 

0C145 

PCW41 

1. 

K0w43 

2. 

COL45 

RCW44 

1. 

Bt-S 

PHS1 

RCW1 

29d. 

RHS1 

«Cwl  l 

221. 

ROW  12 

182 

RHS1 

PCW13 

*->8. 

ROw  14 

232 

® H St 

PCw2l 

io  • 

ROW22 

64. 

°H$1 

RCR23 

40  • 

RC  *24 

27. 

RH$l 

RCWil 

lo  • 

R0n32 

4d. 

0 H S 1 

PCW33 

41. 

R0W34 

29. 

RHSl 

RCW41 

180. 

K0W42 

Sc. 

RHSl 

RC  w4  3 

w»i  • 

R0w44 

2 30 

E N C A T A 

0.  0. 

C.  0. 

0 • 0 • 

0. 

0.  0. 

0. 

C.  C. 

C . 0 • 

t' 

SJ  • 

1.  1 . 

1 . 1. 

1.  1. 

i. 

X.  1. 

1. 

1.  1. 

1.  1. 

1. 

BY  BB  ON  SAMPLE  PROBLEM***** 


••••♦OUTPUT  GENERATED 


PROBLEM  1 


time 

= 2.  94 

SECONDS: 

INCVAL  * 

4 14 

TIME 

= 3.  07 

SECONDS: 

INC V AL  = 

431 

TIME 

= 3.53 

SECONDS: 

INCVAL  = 

445 

TIME 

TOTAL 

= 3. 56 

SOLUTION 

SECONDS: 
TIME  = 

INCVAL  = 

6.65  SECONDS 

462 

OPTIMAL  INTEGER 

SOLUTION  X(J), 

J-1,... , NCOL 

462  21  56 

2 

89  70 

3 13  10 

8 

1 1 0 

1 0 

1 1 0 

1 

MAX  OBJECTIVE  VALUE  = 

4o  2 

5 9 14  8 131  63  36  21 

1110  111 
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APPENDIX  II 


LISTING  AND  SAMPLE  INPUT/OUTPUT  FOR  COMPUTER  PROGRAM  DSLC 


1 


r 


1 . 

2. 

3. 

4. 

5. 

6. 
7. 
3. 
9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21 . 
22. 

23. 

24. 

25. 

26. 
27. 
23. 

29. 

30. 
31  . 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40  . 

41  . 

42  . 

43. 

44. 

45. 

46. 

47. 

48. 

49. 

50. 
51  . 

52. 

53. 

54. 

55. 
56  . 

57. 

58. 
53. 
60. 


C 

C DECOMPOSITION  RCUUNE,  OSLO 

r DECOMPOSITION  AND  SOLUTION  Of  PURE-INTEGER  LINEAR  PROGRAMS 

C (WITH  GENERAL  INTEGER  VARIABLES)  KITH  BLOCK  ANGULAR  CONSTRAINT 

C MATRICES. 

C*»******SINGLE  LINKING  CONSTRAINT  CASE******** 

C GARY  A.  KCCHNAN  (OPERATIONS  RESEARCH),  SEPT.  1976,  MOD  1 

C 

IMPLICIT  R£AL*4  ( A ,C , E-H , 0, P , R- R , 2 ) , REAL*8  IB.D.X.Y), 

1 1 NT£GER*4  (I-N.Q) 

INTEGER*2  JH»K INBA  S , LA,LE , I A , IE 
I NT£G£R*2  I PART, INCUMB, l VBNO, l V 10, ICBND 
INTEGERS  12  STAR, IBID, IBB  NO,  I2BND 
INTEGER*2  IAS, LAS 
OOUBLE  PRECISION  E(IOOO) 

DIMENSION  A (500)  , I NC ( 10 ) , A V ( 1 0)  ,NTSCL (10) 

COMMON /BLOCK/  2T OL It , 2TULPV , 2 TCOST , 2TOLRJ , ZTGLSM , QRO, OMA , DBA ,QF 1 , 

1 UEO,Q3L,OA ,QPL,UMI,Q2  ,QI , QF , QN , QU, NRMAX ,NEMAX , QB.OU 

2 QE,Qh,UL,UO,UR,UM,QG,NTMAX 

COMMCN/BLOCK2/  DFPART(1<:2)»R£VBN0»INCVAL, I COL, LI  STL,  I VAL, IOIR, 

1 NPI  VOT,  1 PTYPE  ,RCOST,  IEEAS,  I PART1122)  , I NCUM8Q22)  , 

2 I VBNO l 500 ) , IV10(  500)  ,IOBNO<  500) 

COMMON /BL0CK3/  RLAMOAf  50 , 10) , ZN AU T 1 10 1 , 2 3 BAR  11 0 1 ,NSJBS, l 2 INC, 

II  Z6AR  , I DOM,  I6LL.NJF  IX, JE IXSM, IB , Jf I X(  10) ,NSOL( 10) ,NLAMDA(  10)  , 
2KSEG1 10), 1BSTAR(20C,10), 1 BUB (10),  IBLB(10),IBP(51,10), 

3 I BU SEC (200 ,10) , I ZS  TAR ( 200,10) ,1  810(200) , I8BNDI200) , 1 2BN0 (200 ) 

COM  RG  N / BLOC. *.4/  X LBS  <50, 10)  ,XUBS(5  0,  10),  AMATRSl  1000)  , RHS  ( 20, 1 0)  , 

1NR0WS  ( 10)  , NCOL  S(  10  ) , JF  I R ST  (UJ  , IAS  ( 1000)  , L AS  ( 50,  10) 

COMMON  E,XLB< 122), XUB ( 122 ) , 0 ( 60 ) , X( 60 ) , Y< 60) , YTE  MP (60) ,OSUM, OPRG0, 

1 DY,Dt,DP,A, ICNAMl 122 , 2 ) , NAME (20) , N TEM P ( 20 ) , SUM  I Nf , MST A T, 

2 lOoJ  i IROKP,  IV  IN, l VOUT, ITCNT,  1NVFRQ, IT RFRQ , 1 TS 1 NV , I FEE  2. 

3 JCQLP.NROk, NCOL.NELEM, NETA ,NLELEM,NLETA,NUELEM,NUETA, 

4 I E ( 1000),  (A (500) ,LE(252)  , L A { 122) , K INB AS <1 22 ) , J H( 60) 

C 

C MAIN  PROGRAM 

C COORDINATES  APPLICATION  UP  THE  VARIOUS  STEPS  OF  THE  DEC0MPGS1- 

C TICN  ALGORITHM. 

C 

C INITIALIZE  PARAMETERS 

10  CALL  FCLOCKt  1T0I  ) 

READ  (5,1,  EN0=9999  1 NSU13  S,  I B , I P ARM  , 1 2 INC 
1 FORMAT  (4110) 

DC  20  J=i, 122 
I CN AM  ( J , 1 ) = 0 
1C  ICNAM ( J , 2 ) = 0 
ICBJ  = 1 
I TRFRC  * 99999 
IBLL  = 0 
IPAP  = 0 
NJFIX  = 0 
JFIXSM  = 0 
JFIRST(l)  = 1 
TALC  = 0. 

T SUBS  = 0. 

IFIRST  = 0 
NALC  = 0 
C 

C PHASE  1 

00  IOC  J * 1 , NSUBS 
A V ( J 1 * 0. 
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*80 


61. 

NTSGL(J)  = 0 

62. 

NSOL(J)  = 0 

63. 

JF I X ( J ) = 0 

64. 

C 

INPUT  DATA  FOR  SUBPROBLEM  J 

65. 

CALL  INPUT(J) 

66. 

C 

SGLVE  SUBPROBLEM  J AS  LP.  PARAMETRICALLY  IN  THE  RIGHT-HAND 

67. 

C 

SICE  FOR  THE  SINGLE  LINKING  CONSTRAINT 

68. 

ICC 

CALL  PHASEllJ) 

69. 

WRITE  (6,8) 

70. 

8 

FORMAT  Cl  START  NEW  PROBLEM*  1 

71  . 

C 

OUTPUT  SLOPES  AND  (ALL-INTEGER)  BREAKPOINTS  DEFINING  THE 

72. 

C 

SEGMENTS  OF  THE  (MUOIFIEO)  CONCAVE  AND  PIECEWISE  LINEAR 

73. 

C 

(PARAMETRIC)  OBJECTIVE  FUNCTIONS  FOR  THE  SUBPROBLEMS 

74. 

DO  20C  J = 1 , NSUBS 

75. 

LAST  = NLAMDAIJ)  ♦ l 

76. 

WRITE  (6,^1  J , ( I BP ( K , J ) , K-l , LA  ST  ) 

77. 

2 

FORMAT  (//•  I BP( K,  * , 13 , * ) =' , 20 15/2 51 5/5 1 5 ) 

78. 

LAST  = LAST  - 1 

79. 

WRITE  (0,3)  J, (RLAMDA1K, J ) , K=1,LAST) 

80. 

3 

FORMAT  f RLAMDAIK,' ,13, * ) = • , 1 9F 6. 2/ 20F6. 2/ 1 IF6 .2 ) 

81. 

2CC 

WRITE  (6,4)  J.ZNAUT(J) 

82. 

4 

FORMAT  (•  ZNAUTl *,  13,* ) **,F10.4) 

83. 

WRITE  (6,5) 

84. 

5 

FORMAT  (///) 

85. 

CALL  FCLOCMJTIME,  ITOT) 

86. 

TPH1  = JT1ME/100. 

87. 

GG  TO  2100 

88. 

c 

89. 

c 

PHASE  2 

90. 

c 

91  . 

c 

BACKTRACK  TC  LAST  PROMISING  NODE  IN  ALLOCATION-VARIABLES 

SEAR 

92. 

c 

TREE 

93. 

20CC 

CALL  BBKT RK 

94. 

(PAR  * 0 

95. 

c 

IF  LIST  OF  STORED  NODES  IS  EMPTY,  COMPUTATIONS  ARE  COMPLETED 

96. 

IF  ( I BLL  . EC.  0)  GC  TO  9000 

97. 

2 1 CC 

NALO  * NALO  ♦ 1 

98. 

CALL  PCLOCM  JT  IME,  ITOT) 

99. 

c 

SOLVE  MASTER  PROBLEM  TO  OBTAIN  PROMISING  NEW  ALLOCATION 

OF 

100. 

c 

LINKING  RESOURCE  TO  SUBPROBLEMS 

101. 

CALL  ALOCTEI IPAR ,1RHS) 

102. 

CALL  PCLUCKI JTIME1, ITOT) 

103. 

TALO  = IALG  ♦ (JTIME1  - JTIME)/100. 

1C4  • 

IPAR  = l 

105. 

c 

TEST  FOR  FATHOM  IN«j  OF  CURRENT  NOOE 

106. 

IF  (INCVAL  .LE.  UINC)  GO  TO  2000 

1C  7 • 

IZBAR  = INCVAL 

1C8  . 

IF  (IRHS  .GT.  0)  I 2 BAR  * -10000 

109. 

c 

CHECK  IF  ANY  SUBPROBLEM  HAS  PREVIOUSLY  BEEN  SOLVED  UNDER 

ITS 

110. 

c 

CURRENT  ALLOCAT  ION 

111. 

CALL  CCMCHK(J.K) 

112. 

IF  (ICOM  .EG.  0)  GG  TO  3000 

113. 

LAST  = NSOL(J)  ♦ 1 

114. 

IRHS  * IBSTARI LAST  ,J)  - IBUS£0(K,J) 

115. 

c 

EPANCH  UN  ALLOCATION  VARIABLE  IN  SUBPROBLEM  J 

116. 

22CC 

CALL  CMBRAN(J.K) 

117. 

IF  IMSTAT  .tQ.  0)  GO  TO  2000 

118. 

c 

FIX  ALLOCATION  TO  SUBPROBLEM  J AT  LEVEL  K 

119. 

23CC 

JFIX(J)  * K 

120. 

NJFIX  = N JF  IX  ♦ 1 

121. 

JFIXSM  = JFIXSM  ♦ IZSTARIK.J) 
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li  Hi 


T 


122. 

IF  (NJFlX  .LT.  NSU6S)  GO  TO  2100 

121. 

C 

ALL  SUBS  FIXED:  COMPARE  SOLUTION  WITH  INCUMBENT 

124. 

IF  (JFIXSM  .LE.  IZINC)  GO  TO  2500 

125. 

DO  24CC  1 = 1 »NSUB  S 

126. 

24  CC 

INCH)  = JF  IX(  I) 

V2T. 

IZINC  = JFIXSM 

12B. 

CALL  PCLUCMJT  (ME,  ITOT) 

129. 

TCP  T = JTIME/ICO. 

130. 

Wfil  TE  (6,93)  TOP  T,  IZINC 

131  . 

63 

FORMAT  (<  TIME  =’,F7 .2,'  SECONDS:  IZINC  =',1101 

132. 

IF  (1FIRST  ,£Q.  1)  GO  TO  2500 

133. 

TF1RST  = TOPT 

134. 

(FIRST  = 1 

135. 

1FVAL  = I 2 INC 

136. 

25C0 

JF IX( J 1 = 0 

137. 

JFIXSM  = JFIXSM  - IZSTAR(K,J1 

139. 

NJFIX  = N JF IX  - 1 

139. 

GC  TO  2000 

140. 

C 

141  . 

C 

SELECT  NEXT  SU6PR08LEM  TO  SOLVE 

142. 

3CCC 

avkax  = -iocoo. 

143. 

J = c 

144. 

C 

FIRST  TRY  TO  SELECT  AN  UNFIXED  SUBPROBl EM  FOR  WHICH  THE  ALLOCA- 

146. 

C 

TION  VARIABLE  15  NOT  ON  AN  OP-BRANCH 

146. 

DO  3100  I = 1 ,NSUB  S 

147. 

IF  (JFIX(I)  .NE.  0)  GO  TO  3100 

143. 

IF  (AVMAX  .GE.  AVIIJ)  GO  TO  3100 

149. 

J = I 

150. 

AVMAX  = A V ( 1 1 

151  . 

3 1 CC 

CONTINUE 

152. 

IF  (J  .uT.  01  GO  TC  3200 

153. 

C 

ALLOCATION  VARIABLE  FOR  EACH  UNF  IXEO  SUBPROBLEM  CURRENTLY  ON  AN 

154. 

C 

UP-BRANCH;  SELECT  UNFIXEU  SUBPROBLEM  IN  ACCORDANCE  WITH 

155. 

c 

CECISION  RULE  SPECIFIED  BY  PARAMETER  IPARM  ALONE 

156. 

00  3150  1 = 1 ,NSUB  S 

157. 

IF  (JFIX(I)  .GT.  0)  GO  TO  3150 

158. 

IF  (AVMAX  -GE.  AVI  1)1  GO  TO  3150 

159. 

J = l 

160. 

AVMAX  = AVU) 

161  . 

315C 

CONTINUE 

162. 

32  CC 

NTSOL ( J ) = NTSOL ( J ) + l 

163. 

CALL  PCLGCM  JTIME,  ITOT) 

164. 

C 

LO AC  PROBLEM  DATA  FOR  SUBPROBLEM  J 

165. 

CALL  LOOATA(J) 

166. 

ITSINV  = 95999 

16  7. 

IFEAS  = 0 

168. 

c 

GET  OPTIMAL  LP- SOLUTION  TO  SUSPRCBLEM  J 

169. 

CALL  NCRMAL 

170. 

c 

TEST  if  SU3PR0B  LEM  J IS  LP-FEASIBLE 

171. 

IF  I M ST  AT  .tQ.  UN)  GO  TO  3300 

172. 

c 

SUePRUBLEM  J LP-FEASIBLE;  o£T  INITIAL  LOWER  BOUND  ESTIMATE  ON 

173. 

c 

MAX.  IP-CBJ.  VAL. 

174. 

CALL  CETLBD(J) 

175. 

INITBC  = INCUMB1 1) 

176. 

c 

USE  BRANCH-ANO- eQUNO  ROUTINE  TO  COMPUTE  OPT.  IP-SOLUTION  TO 

177. 

c 

SUePRUBLEM  J 

178. 

CALI  EANDBUNITBD) 

179. 

3 3CC 

CALL  PCLUCM  JT1ME1  , ITOT) 

180. 

TIME  = (JTIMtl  - J T IME ) / 100. 

181. 

TSC8S  = TSCBS  ♦ TIME 

182. 

C 

UPCATE  SUBPROBLEM  SELECTION  RULE  INFORMATION  FUR  SUBPROBLEM  J, 
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00 

or 

i- 


183. 

isa. 

185. 

186. 

187. 

188. 

189. 

190. 

191. 

192. 

193. 
199. 

195. 

196. 

197. 

198. 

199. 

200. 
201. 
202. 
2C3  . 
209. 

205. 

206. 

207. 

208. 

209. 

210. 
211. 
212. 
213. 
219. 

215. 

216. 

217. 

218. 

219. 

220. 
221. 
222. 
223. 
229. 

225. 

226. 
22  7. 
228. 

229. 

230. 

231. 

232. 

233. 
239. 

235. 

236. 

237. 

238. 

239. 

290. 

291. 


C IN  ACLORC ANCfc  WITH  VALUE  SPECIFIED  FOR  IPARM 

GO  TO  13310, 3320, 3330, 39001, IPARM 
3310  AVI J1 =(<NTSOL( Jl-l )*AV( J )F(ZJBAR( JI-INCVAL  ))/NTSOL(J) 

GO  TO  3900 

332C  A V ( J ) = I (NT SOLI J)-1)*AV(J)  ♦ INCUMB< 2) l/NTSCL ( J 1 
GO  TO  3900 

333C  A VI J 1 = I ( N TSOL( J) - 1) *AV (Jl  - T IME I /NTSQLI Jl 
C SAVE  ALLOCATION  ANO  SOLUTION  INFORMATION  FOR  SUBPROBLEM  J 

39 CC  CALL  SAVER  I 01 

IPHS  » IhCUMBI 21 
K = NTEMPI21 

C OUTPUT  SOLUTION  INFORMATION  FOR  SUBPROBLEM  J 

WRITE  (6,6)  J,K,  (INCUMB(KK),  KK-l.NCOU 

6 FORMAT  (•  SUB', 12,*  SOL', 13,':  *,2GI5J 

C TEST  IF  ALL  SUBPROBLEMS  HAVE  BEEN  SOLVED;  IF  SO,  NO  BRANCHING 

C NECESSARY 

IF  (NJFIX  - NSUBS  ♦ 1)  2 200, 230C, 9999 
C 

C COMPUTATIONS  COMPLETED;  OUTPUT  OPTIMAL  SOLUTION  INFORMATION 

5CCC  CALL  CUTSOL ( INC) 

CALL  FCLOCKI JT  IME,  1T0T) 

TTCT  * JTI ME/100 . 

C OUTPUT  ALGORITHMIC  PERFORMANCE  INFORMATION 

WRITE  (6,7)  TTOT 

7 FORMAT  (/•  TOTAL  SOLUTION  TIME  =',F7.2,'  SECCNOS') 

WRITE  (6,92)  TPH1,NAL0,TAL0,(NTS0LI J) , J = l, NSUBS) 

52  FORMAT  (•  TIME  IN  PHASE1  »',F6.2,'  SECONDS'/*  MASTER  PROBLEM  SOLVE 
ID',  I1C,'  TIMES:  TOTAL  TIME  SOLVING  MASTER  PROBLEM  =',F6.2,'  SECON 

20S • / ' NUMBER  OF  TIMES  EACH  SUBPROBLEM  SOLVED  »',18X,10I5) 

WRITE  (6,9)  (NSOL(J),  J=l, NSUBS) 

5 FORMAT  (»  NUMBER  OF  DISTINCT  SOLUTIONS  OBTAINEO  IN  EACH  SUBPROBLEM 
1 *• , 1 C 15 ) 

WRITE  (6,91)  TSUBS 

91  FORMAT  (•  TOTAL  TIME  SOLVING  SUBPROBLEMS  «',F6.2, 

1'  SECCNOS') 

GO  TO  10 
9999  STOP 
ENO 

BLOCK  DATA 
C 

C INITIALIZES  GLOBAL  PROGRAM  CONSTANTS 

C SUBROUTINE  ADAPTED  FROM  LINEAR  PROGRAMMING  COOE  LPM-1,  WRITTEN 

C BY  J.A.  TCMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 

IMPLICIT  REAL*9  ( A , C , E-H, 0, P ,R-W, l ) , RE AL*8  (B,0,X,Y), 

1 I N TEGER*9  (I-N.Q) 

COMMON/BLOCK/  2T0L 2E .ZTQLPV , ZTCCST , 2T0LRJ , 2TCLSM , QRO, DM A, DBA ,QF I , 

1 CEO,CBL,OA,QPL,QMI,CZ,QI,QF,QN,QU,NRMAX,NEMAX,QB,QC, 

2 OE ,QH,QL,Q0,QR,0M,QG,NTMAX 

REAL  ZTOLZE/l.E-5/ , ZTOLP V/ l.E-9/, ZTCOST/ 1. E-3/ , ZTOLR J / 1. E-9/ , 

1 ZTULSM/l.E-10/ 

INTEGER*9  NRMAX/60/,NTMAX/250/,NEMAX/l000/ 

(NTEGERW9  QRO/'ROW  • / ,QMA/ • MA TR • / ,QBA/ • BAS  I • /, OF  I/' F I RS* /, 
lOEC/'ECF  • / , QBL/ • • / , OA/ • A */,CPL/'  * '/,QMI/'  - •/, 


2QZ/'  l 

• /,QI/  'I 

•/,OF/'F 

• / ,QN  / ' N 

• /,QU/'U 

' /. 

30B/'B 

•/,OC/'C 

*/,QE/'E 

• / , QH  / ' H 

• / , QL  / • L 

'/, 

900/ • 0 

• / , QK/  'R 

•/,OM/'M 

• /,QG/'G 

• / 

END 

SUBROUTINE  INPUT ( I FPROB) 


292.  C 

293.  C INPUTS  PROBLEM  CATA 
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c subroutine  ADAPTED  from  linear  programming  CODE  LPM-1,  WRITTEN 

C BY  J-A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 

C*»******CE  SCR  I P T ION  OF  PARAMETERS******** 

C IFRROb  = INPROB  = IDENTIFICATION  NUMBER  OF  SUBPROBLEM  BEING 

C INPUT  iUSER  MUST  INPUT  SUBPRC8LEPS  IN  SEQUENCE  1 ,2  , . . . tNSU6S> 

£****************»** ********************** 

C 

IMPLICIT  R EAL* A ( A ,C , E-H , C, P ,R- k , Z)  , REAC*8  IB,D,X,Y), 
l INTEGER*^  ( I-N, Q ) 

INTEGER*^  JH,KIN0AS,LA,LE,  IA,  IE 
I NT EGER* 2 IZSTAR , I BID, IBBND, IZSNO 
INTEGER**:  IAS, LAS 

DOUBLE  PRECISION  E ( 1 QOO ) , A TEMPI , A TE PP 2 
REAL  A(500) 

C 

COMMCN/BLOCK/  ZT OL  2 E , Z TOLP V, Z TC CS T , ZTOLR J , ZTOL SM , QRO, QMA ,QBA ,QF  I , 

1 CEO, CBL.UA.QPL,  CMI.QZ  , Q I , QF  , UN  , QU, NRMA X , NE M A A , OB, Q C . 

2 UE*QP,UL,QQ*QR,UM,QG«NTHAX 

C 

COMMON/ BL0CK3/  R LA MDA ( 50 . 10 ) , ZN AU T I 10 ) , Z JB  AR  < 1 01  .NSUBS, I ZINC, 

II ZBAR , I DOM , IBLL.NJFIX, JE IXSM, IB , JEl XI 101 , N SOL ( 10 > ,NL A MO A UO ) , 
2KSEGI  1C) , I BSTARI 20  0, 10) , I BUB  I 10), IBL0(IO),IBPI51,1O), 

3IBUSECI200 ,10) ,IZS  TAR( 2 00,10) , I BICI 200) , IBBND (200) ,1 ZBNDI200 ) 
COMMCN/BlOCKA/  XL6SI5U, 10) , AJBS (50, 10 ) , AM A TR SI  10 00 ) , RHS I 20, 1 0) , 
lNRORSUO)  , NCUL  SI  lG),JFIRsT(li),  IASI  1000)  , LAS  I 50,  10) 

COMMGN  E,  XlB<  12c  ) , X0B(lc2)  ,B<  60)  ,XI  60)  , YI60)  ,YTEMP(60  ) ,DSUM,  OPROl), 

1 UY , Ot , DP, A,  ICNAMl 122,2),NAME(20),NTEMP(20),SUMINF,MSTATf 

2 IOBJ  , IRCwP,  IVIN,IV0UT,ITCNT,INVFRQ,  ITRFRQ , ITS  I NV , IEEE Z, 

3 JCOLP.NROW, NCOL,NELEM,NETA ,NLE LEM ,NLE TA ,NUELE M ,NUETA , 

A It l iuCO ), IA 1500) ,LE(252)  ,L A l 122 ) , K 1 NB AS ( 1 22 ) , J H ( 60) 

C 

00  10  1-1,60 
1C  BU)  =0. 

DO  20  J=l, 122 
2 C KINBASIJ)  = 0 
NROR  * 0 
ITCNT  = 0 
ICSI=C 
ICS2=C 

READ  (5,7000)  INPRC6 
7CCC  FORMAT  (5(A) 

IFPRCe  = INPROB 
IF  (If PROB  .EQ.  0)  RETURN 
C 

5 RE AO (5, 10 l ) K1  ,K2, K3.KA,  (NAME! I ) , I = 1 , A ) , AT EMP 1 ,N AME< 5 ) , NAME  I 6) , 
1ATEMP2 

1C1  FORMA T(AA1 .2AA.2X, 2AA.2X ,F 12 . A , 3X ,2 AA , 2X, F 12 . A ) 


IF 

1 K l 

.EC. 

QE) 

GO 

TO  600 

IF 

(K1 

• EQ. 

QBL 

) GU 

TO  50 

IF 

4 K 1 

• EQ. 

QN) 

GO 

TO  100 

IF 

m 

.EQ. 

QR 

.AND 

. K2  . 

EQ. 

QU) 

L *1 

IF 

<K1 

• EQ. 

QR 

.AND 

. K2  . 

EQ. 

UO) 

GO 

TO 

150 

IF 

<Kl 

• EQ  • 

CC) 

L=2 

IF 

4 K 1 

.EQ. 

QC) 

GO 

TC  150 

IF 

( K 1 

.EQ. 

QB 

.AND 

. K2  . 

EQ. 

QA) 

L = 3 

IF 

(Kl 

.EQ. 

v.B 

.A  NO 

. K2  . 

EQ. 

QA) 

GC 

TO 

150 

IF 

(XI 

.EQ. 

UR 

.AND 

. K2  . 

EQ. 

QH) 

L*A 

IF 

(Kl 

• EQ. 

QR 

.ANu 

. K2  . 

EQ. 

QH) 

GO 

TO 

150 

GO 

TO  1 

1210, 

320, 

AID, 

500)  ,1 

ICC  N TEMP  I 1 ) * NAME! 3) 
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NTERP  <21 
1 EC  CONTINUE 
GO  TO  5 


NAME14) 


f*' 


205. 

306. 

307. 
3C8. 
3C9. 
310. 


323. 

324. 

325. 

326. 

327. 

328. 

329. 

330. 

331. 

332. 

333. 

334. 

335. 

336. 

337. 

338. 

339. 

340. 
341  . 

342. 

343. 

344. 

345. 

346. 

347. 
349. 

349. 

350. 
351  . 

352. 

353. 

354. 

355. 

356. 

357. 

358. 

359. 

360. 

361. 

362. 

363. 

364. 

365. 


2 1C 


NROW  = NROW+  1 
NCCL=  N ROW 


311. 

ICNAR(NR0W  . 

1)  = 

NAME!  1) 

312. 

313. 

C 

I C A AM (NROW  . 

2)  = 

NAME! 2) 

314. 

C 

TEST  ROW 

TYPE 

315. 

316. 

C 

IFIK2.Ey.QL 

.OR. 

K3.EQ.UL) 

GO 

TO 

2 20 

317. 

IF(K2.  Eg. Qt 

.OR. 

K 3.EQ.QE  1 

GO 

TO 

2 30 

318. 

1 F ( K2.Ew.Qu 

.OR. 

K3.EQ.UG) 

GO 

TO 

240 

319. 

IFIK2.Ew.QN 

.UR. 

K3.EQ.QN) 

GO 

TO 

2 50 

320. 

GO  TO  230 

321. 

22 C XLB(NFCw)  = 

0. 

322. 

XLBINROwl  = 

1.E4 

23C 


24C 


2 EC 
26C 


32C 


321 


324 


825C 

325 


GO  TO  250 
XLB(NPCw)  = 0. 
XUB(NRCw)  = 0. 

GO  TC  250 
XLB(NROw)  = 0. 
XliBfNPOw)  ■=  1.E4 
A(NROW)  = -1. 

GO  TO  260 
AINROWl  = 1. 

I A ( NRCW ) » NROW 
LA (NRCW)  « NROW 
JH(NRCW)  = NROW 
K IN8 A S (NROW ) = NROW 
NELEM=NROw 
GO  TO  5 

MATRIX  ELEMENTS 

J = 3 
K = 4 

IF  <0A6S( ATEMP  1)  .LE. 

GO  TO  324 
J = 5 
K = 6 

ATEMP 1 = AT  tMP2 
GO  TO  330 
CONTINUE 

IF  ( NAME! 1 1 -EQ.  ICS1 


2TOL2E)  GO  TC  321 


.AND.  NAME ( 2 1 .EQ.  ICS2)  GO  TO  330 


TEST  FOR  SPLIT  VECTOR 

00  325  I * l.NCOL 

IF  ( N ARE ( 1 1 .NE.  1 CNAM1 1,11) 
IF  (NAREI21  .NE.  I CNAM1 1,21) 
WRITE (6t82501  NAME  ( l),NAME(2) 
FORMAT (14H0SFL IT  VECTOR  ,2A41 
CONT  IMJE 
NCOL  * NCOL  ♦ 1 
ICS1  * NAME  1 1 1 
ICS2  » NAME (21 

1 CRAM  (NCOL  • 1 1 = ICS1 
ICNAM  INCOL .21  - ICS2 
LA(NCCL)  - NELEM  ♦ 1 
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GC 

GC 


TO 

TO 


325 

325 


366. 

C 

367. 

C 

TEST  FOR  ROW  MATCH 

368. 

c 

369. 

330 

00  34C  I = l.NPOW 

370. 

IF ( NAME ( J 1 .NE.  ICNAM(I,l)  .JR.  NAM  El K)  .NE.  I 

371. 

NELEM  = NEI.EM  + i 

372. 

l A ( NE  LEM1  = l 

373  . 

AINEIEM)  = ATEMP1 

374. 

LAINCCIU  )=NELEMU 

375. 

335 

IF(K  .GT.  5 ) GO  TO  5 

3 76. 

I F ( CASS1  ATEMP2  ) -LE.  2T0LZE)  GC  TO  5 

377. 

J = 5 

378  . 

K.  = 6 

379. 

4TEMP1  = ATEMP2 

380. 

GO  TO  330 

381. 

34C 

CONTINUE 

382. 

WR I TE  (6,8300)  NA ME  l J ) . NAME  l J , N AM E ( 11  .NAME  (2  1 

383. 

83CC 

FORMAT (J.8HCNQ  MA VC H FOR  POw  .2A4.10HAT  COLUMN 

384  . 

STOP 

385. 

c 

386. 

c 

8ASIS  CAROS 

387. 

c 

388. 

4 1 C 

DO  420  I = l.NCOL 

389. 

IF4NAKE11  ) .NE.  ICNAM(I,D  .OR.  NAME121  .Nc.  I 

390 . 

levEC  = i 

391  . 

GC  TO  425 

392. 

42C 

CONTINUE 

393. 

WRITE  (6,8400)  NAME  ( l),NAM£(2) 

394. 

84C0 

FORMAT(21HONO  MATCH  FOR  VECTOR  ,2A4 1 

395. 

GC  TC  5 

396. 

425 

DO  43C  I = 1 , NP.O W 

39  7. 

IF  (NAME(3J.NE.ICNAM(t,l ) .OR .NAME <4 1 .NE . 1 CNAM1 

398. 

1 8R0U  = I 

399. 

GO  TO  440 

400. 

43C 

CCNT  t NUE 

401  . 

WRITE (6,8300 ) NAME <3),NAM£(4) 

402. 

GO  TO  5 

403. 

44C 

JHUBPCW)  = I8VEC 

404. 

K IN8 A S < I BROW ) = 0 

405. 

KINBASdBVEC)  = 18  ROW 

406. 

GO  TO  5 

407. 

c 

408  • 

c 

PH  S 

409. 

c 

410. 

5C0 

J = 3 

411. 

K = 4 

412. 

IF  (OABS( A TEMP  11  .LE.  ZTQlZE)  GO  TG  521 

413. 

GO  TC  524 

414. 

521 

J-5 

415. 

K -6 

416. 

ATEMP1=ATEMP2 

417. 

GO  TO  530 

418. 

524 

CONTINUE 

419. 

IF  ( NAME! 1 ) • E Q.  ICSI  .ANO.  NAME  1 2)  . EQ.  ICS2) 

420. 

c 

421  . 

c 

TEST  FOR  SPLI T VECTOR 

422. 

c 

423. 

00  525  I = 1 , NCuL 

424. 

If  (NAME(i)  .NE.  ICNAMII.U)  GC  TO  525 

425. 

IF  ( N ARE 1 2 ) .NE.  1CNAM(|,2)I  GG  TO  525 

426. 

WRITE(fc,8250)  NAME ( 1) ,NAME(2) 

.NE.  ICNAM(I,2))  GO  TO  420 


GO  TO  430 


GO  TO 


525 


527. 

528. 

529. 

530. 
531  . 

532. 

533. 
535. 
535. 
5 36. 

537. 

538. 
5 39. 
550. 
551  . 

552. 

553. 
555. 

555. 

556. 

557. 

558. 

559. 
550. 
551  . 

552. 

553. 
555. 

555. 

556. 

557. 

558. 

559. 

560. 

561. 

562. 

563. 
565. 
565. 
566  • 
567. 
568  . 

569. 

570. 

571. 

572. 

573. 
575. 

575. 

576. 

577. 

578. 

579. 

580. 
581  . 

582. 

583. 
585. 

585. 

586. 

587. 


53C 


535 


55C 


C 

c 

c 

6CC 


C 

C 


65C 


C 

c 


651 


C 


101C 


1C2C 


103C 


c 


c 


CONTINUE 
ICS1  * NAME ( 1 ) 

ICS2  * NAME (2) 

TEST  FOR  ROW  MATCH 

00  55C  I = l.NROW 

IF(NAFEIJ)  -NE  . ICMM(I,1)  .OR.  NAME! K)  .NE.  I CN  AM  ( 1 , 2 ) ) GO  TO  550 

BID  = ATEMPl 
I F « K .GT.  5)  GO  TO  5 

IF ( CA6SI AT  EMP2 1 .L  t.  ZTUL2E)  GC  TO  5 

J = 5 
K = 6 

ATEMP1  = ATEMP2 

GO  TO  530 
CCNTI NLE 

WRITE  16, B3CG)  NA  ME  l J ) , NAME  I K ) 

STOP 


ENO  Of  INPUT 

NSCCl  = NCOL  - NROW 
K = NROW  ♦ 1 

INPUT  LOWER  AND  UPPER  60UN0S  ON  DECISION  VARIABLES  FOR  SUBPROB- 

LEF  INPROB 

READ  (5,650  (ALB(d),  J=K,NCOL) 

READ  (5,630)  IXUb(j),  J=N,NCUL) 

FORMAT  (13F5.0) 

x l e < icbj)  * -loooo  . 
xuBiicej)  = ioooo. 

INPUT  CCWtR  ANO  UPPER  80UN0S  ON  ALLOCATION  VARIABLE  FOR  SUB- 
PRCBLEM  INPROB 

RE  AO  15,631)  l64_o(  INPROo)  , IBJB(  INPRCB) 

FORMAT  18110) 

TEMP  « FLCAT( 1BL6I  INPROB) ) 

8(2)  * OBLE(TEMP) 

INVFRC  * NROW 

STORE  A, IA  , l A ,X JB , XLB , B ,NCO L « NROW  FOR  SUBPROBLEM  INPROB 
LL  = JFIRST ( INPROB  ) - 1 

00  1C1C  I =1  ,NELEM 
LLP  I - LL  ♦ I 

A MATR  S (LLP  II  = Ad  1 

1 AS (L l PI ) = I A ( I ) 

DO  102C  K-l.NCOL 

L AS ( K , I NPRCB ) = LAIN) 

XL8S(K, INPROB)  = XLB(K) 

XU0SI X, INPROb)  « XUe(K) 

LL  = NROW  - 2 
00  103C  1 = 1, LL 

RHS  ( I , INPROB)  * SNGL  ( B ( I 4-2)  ) 

NCCLS ( INPRCB)  = NCCL 
NROWS  (INPRCB)  = NRCW 

JFIRST(INPRUB*1)  = JF IRS T ( I NPR06 ) ♦ NELEM 

NELEM  = NELEM  - NROW 

RELEM  * NELEM 

ROENS  * RELEM/ (NRU  W*NSC JL ) 

RETURN 

ENO 

SUBPOLTINt  FTR AN ( I PAR ) 
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488  . 
4 89. 

490. 
491  . 
492. 

491. 
494. 

4 99. 
496. 
497  . 

498. 

499. 

500. 
501  . 
502. 

501. 

504. 

505. 

506. 
5or. 

508. 

509. 

510. 

511  . 

512  . 

513. 

514. 

515. 

516. 

517. 

518. 

519. 

520. 
521  . 

522. 

523. 
624. 

525. 

526. 

527. 

528. 

529. 
6 30. 

531. 

532. 
533  . 

5 34. 
535. 
516. 
53  f. 
5 39. 
539. 

540  . 

541  . 
542. 
541. 

544. 

545. 

546. 

547. 
549. 


C PERFORMS  FUKWARO  TRAN SFORMA  T I ON  ON  COLUMN  STQkEO  IN  VECTOR  V 

C**»*****UE$CRIPT  ION  OF  PARAMETERS******** 

C IPAR  = PARAMETER  INUILaIING  bY  WHICH  ETA-VECTORS  THE  MA'iCIX 

C COLUMN  IS  TO  BE  UPGATEO 

C******************* ******** ************** 

C SofcRQUT  INfc  ADAPTED  FROM  LINEAR  PROGRAMMING  CODE  LPM-L,  WRITTEN 

C BY  J.A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORO  UNIVERSITY) 

C 

IMPLICIT  R E AL * 4 ( A , C , E-H , U, P , R- W , 2 ) , REAL* 8 (8,0, X,Y), 

1 I NTEGER*4  U-N,Q> 

INTEGER*2  JH, K IN bA S ,cA ,l£ , I A , I E 
DOUBLE  PRECISION  EUOOO) 

REAL  A(9u0) 

C 

CCMMCN/BLOCk/  2TUL  2 E, 2TULP V , L TCOST , 2 roLfi J , 2T OL Sh , QRO, QMA.QBA.UFI  , 

1 CEO,  C8L  , OA  , OPL  , wM  1 , 02  ,01  , OF , UN  • UU,  NR  MAX  , NEMAX , OB,  UC 

2 CE ,qh,ql,oo,or,om,qg,ntmax 


c 


c 


COMMON  E ,XLb( 122 ) , XUtt( 122) , b ( oO ) , X ( 60  I , V (60)  , YTE MP (60 ) ,U SUM, OPROD 

1 UY.CE.OP,  A,  I CNAM(  122,2)  , NAME  (20) ,NT£MP(  20  I,  SUM  IN*-  , MST  AT, 

2 ICBJ, lRCwP,  I VIN, I VOJT, I TCNT,  INVFRO,  I T RFR0  , I TS I NV , IFFE2, 

3 JCOLP ,NROW, NCOL,NElEM,NETA ,NLELEM,NLETA,NUELEM,NUETA, 

4 let  1000 ),  I A ( 500) , LEI252) ,LA(  122) .KINBASI122) , JHI60) 


GO  TO  (100,110),  IPAR 
ICC  NFE  = 1 

NLE  = NETA 
GC  TO  200 

liC  NFE  * NLE  T A ♦ 1 
NLE  = NETA 

2CC  IF  INFE  . oT . NLE)  GO  TO  9000 
00  10CC  IK  * NFE. NLE 
LL  = UlUi 
KK  = LE(IKU)  - 1 
IPIV  * IE (LI) 

OY  = Y( IP l V > 

OY  * CY/cILL) 

Y ( I P T V)  = CY 

IF  (KK  .Lfc.  LL)  GO  TO  1000 


LL  = LL  * 1 
00  50 C J * LL , KK 
IR  = IE(J) 

YUfil  = Y(  IR)  - E(  J)  * OY 
5C0  CONTINUE 
ICCC  CONTINUE 
90CC  CONTINUE 
RETURN 


ENO 

SUBROLTINE  BTRAN 
C 

C PERFORMS  BACKWARD  TRANSFORMATION  ON  COLUMN  STORED  IN  VECTOR  Y 

C SUBROUTINE  ADAPTED  FROM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 

C BY  J.A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORO  UNIVERSITY) 

C 


IMPLICIT  RfcAL*4  (A  ,C , E-H , C , P , R- W, 2)  , REAL*8  IB.D.X.Y), 
l I N TEGER  *4  (I-N.O) 

1 NT  EGER*2  JH.KINBA S.LA.LE,  IA,  IE 
OCUBLE  PRECISION  EllOOOl 
REAL  A ( 500  ) 

C 

CCMMON/BLUCK/  2TCL  2E.2TOLPV, 2TCCST, 2 T OL R J , 2 T CL  SM , ORO , QM A , Q6 A ,QF l , 
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c 


1 

c 


lEO,  WBL.UA.OPl,  OM  I ,QL  ,01  ,QF  ,WN,OU.  NRMAX  , NEMAX  , Ob,  OL 
QE  .OH.UL.QO.Ofi.UM.QG.NrMAX 


! 


559. 
550. 
551  . 

552. 

553. 
555. 

555. 

556. 
55  7. 

558. 

559. 

560. 
561  . 

562. 

563. 
565. 

565. 

566. 

567. 
569. 

569. 

570. 

571. 

572. 

573. 
575. 
5 75. 
5 76. 

577. 

578. 

579. 

580. 

581. 

582. 

583. 
5e5. 

585. 

586. 

587. 

588. 

589. 

590. 

591. 

592. 

593. 
595. 

595. 

596. 

597. 

598. 

599. 

600. 
601. 
602. 
603. 
605. 

605. 

606. 
607  . 
608. 
609. 


C 


COMMON  E i XL8i 122 ) • XUB 1 122 ) , 6 ( 60 ) , X< 60 J , Y (60) , YTE MP ( 60 ) , DSUM, DPRQO, 

1 UY  »OE,QP, A, ICNAMI  122.2  I .NAME (2 01 , STEM P( 20 ) , SUM  1 NF , MST AT , 

2 [OBJ, IRON P,  IVIN.IVQJT.IT CM T>  IN VFRQ, I TRFRQ , I TS I NV. IFFE l , 

3 JCOLP.NROW, ncol, nelem, neta.nlflem, nle  ta.nuelem.nueta, 

5 IE l LOCO), IA( 500), LEI  252)  ,LA( 122) , K I NB AS ( l 22 ) , JH (60) 

IF  (NETA  . LE.  C)  GC  TO  9000 
00  10C0  I * l.NETA 
IK  = NETA  - I + l 
LL  = LE(IK) 

KK  = LEI 1 K ♦ 1 ) - 1 
1PIV  = It ( LL) 

OP  = E(LL) 

OY  = Y ( 1 P 1 V ) 

DSUM  = O. 

IF  (KK  .LE.  LL)  GO  TO  600 
LL  = LL  ♦ 1 
00  50 C J = LL.KK 
1 R = IE(  J ) 

OE  = E(J) 

OPROC  = DE  * Y ( 1R  ) 

OSUM  = US JM  ♦ OPROC 
5CC  CONTINUE 


6CC  Y(IPIV)  = (OY  - OSUM)  / OP 
ICOC  CONTINUE 
90CC  RETURN 
END 

SUBROUTINE  FORMC 
C 

C FORMS  COST  VECTOR  FOR  CURRENT  PRIMAL-SIMPLEX  ITERATION;  USEO  IN 

C CONJUNCTION  WITh  SUBROUTINE  PRICE 

C SUBROUTINE  AO AP  T EO  FROM  LINEAR  PROGRAMMING  CODE  LPN-1,  WRITTEN 

C BY  J. A • TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 

IMPLICIT  REAL*5  ( A , C ,E— H , 0 , P , R— h . 2 ) , REAL*  8 (B.D.X.Y), 

1 INTEGER *5  (I-N.Q) 

I N T EG  ER*2  JH.KINbAS.LA.Lt,  IA,  IE 
OCUBLE  PRECISION  E ( 1000) 

REAL  A ( 6U0 ) 

C 

CCMMON/BLOCK/  2T0L  ZE.ZTOLPV.ZTCOST,  ZTOLR J , ZTCLSM , QRO, QMA , OB A .OF  ) , 

1 QEO,  C6L.0A, gPL.QMI.CZ ,0 I , OF , ON , JU, NR  MAX , NE MAX , 36, UC, 

2 WE  .Qh.QL.QO.ClR.QM.QG.NTMAX 
C 

COMMON  E • XLB( 122 ) • XUB ( 122 ) . B 1 60 ) , X( 60 ) . Y ( 6 0 ) , YTE MP ( 60 ) ,OSUM, OPROO, 

1 OY .DE.OP.A,  ICNAM ( 122,2 ) .NAME (2 0) , N TEMPI  20 ), SUM  I NF , MST AT, 

2 lObJ.iRGWP,  IVlN.iVOUT.lTCNT,  INVFKG, ITRFRU.ITS1NV. IFFEZ, 

3 JCOLP.NROw, NLOL , NE  LEM , NE TA  , NLE LEM , NLE TA .NUELEM ,NUET A , 

5 1E( LOUO ) , I A (500), LEI  2 52) ,L A(  122 1 , KI NB AS ( 1 22 ) , JH( 6 0) 

C 

MSTAT  = yl 
IFFEZ  * 0 
SUMINF  * 0. 

Y ( 106 J ) = 0. 

00  30  [*1,NH0W 

IF  (I  .EG.  lObJ)  GC  TO  30 

1 COL  * JH ( I ) 
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i 


L 


IF  (X(I)  .LE.  (XLB(ICOL)  - LTUL ZE ) ) GO  TO  10 
IF  IXIU  -GE.  (XU6UC0L)  * ZT0L2E))  GO  TO  20 

vm  =0. 

GO  TO  30 
1C  Y(I)  - 1. 

SUMINf  = SUMINF  ♦ XLB1IC0U  - XU) 

GO  TO  30 
2C  YII  ) = -1. 

SUMINF  = SUMINF  + XU)  - XUtMICCL) 

30  CONTINUE 

IF  (SLMINF  .GT.  ZTGLSM)  RETURN 
Yl  (OBJ ) = I. 

1FFEZ  = 1 
MSTAT  = OF 
RETURN 
ENO 

SUBROUTINE  PRICE 

PRICES  OUT  N0N8ASIC  COLUMNS,  CHOOSES  PIVOT  COLUMN  JCOLP  FOR 
CURRENT  PRIMAL- SIMPLEX  ITERATION 

SUBROUTINE  ADAPTED  FROM  LINEAR  PROGRAMMING  CODE  LPM-i,  WRITTEN 
BY  J.A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

IMPLICIT  REAL**  ( A ,C  , E-H , 0, P , R- W , 2)  , RE AL*8  (8,D,X,Y), 

1 INTEGER**  U-N,0) 

I NT  EG  EB*2  JH,K  IN  BA  S ,UA,L  E , I A , IE 
I NTEG  ER*2  (PART, INCUMB, I V0ND , I V 10 , 1 GBND 
DOUBLE  PRECISION  E ( 1000) 

REAL  A ( 500 ) 

common /block/  ztol  ze.ztolpv.ztcgst, ztolrj,ztolsm ,qro, qma.qba  ,ufi  . 

1 CEO, C8L.0A ,gPL, CM  I, QZ ,OI,QF,QN, QU, NRMAX .NEMAX, UB.OC, 

2 UE ,UH,QL,UO,UR,QM,QG,NTMAX 

CCMM0N/BL0CK2/  DFP  ART  I 12  2 ) ,RE  VBND , I NC VAL , I COL, L I STL , I VAL , IDI R, 

1 NPI VOT.IPTYPE.RCOST,  IF EAS, I PARTJ 122 ) , I NCUMBU 22) , 

2 I VB  NO  ( 500  ) , I V I D ( 500)  ,I08ND(500) 

COMMON  E,  XLB<  122  ),  XU8U22)  . B ( 60 ) , X(  60  ) , Y ( 60 ) , YTE  MP  (60  ) ,0  SUM,  DPROO, 

1 UY.UE.OP.A,  ICNAM ( 122,2) , NAME  1 20) , N TEM P( 20 ), SUM  I NF , MST AT, 

2 lUUJfiRGnP,  IVIN, l VOUT.ITCNT,  IN VFRO , I TRFRQ , I TS I NV , IFFE 2, 

3 JCCLP,NRO*,NCOL, NELEM, NE  TA ,NLE LEM,NLE TA .NUELEM ,NUET A, 

A IE ( 1000), I A (500) , LE (252)  ,LAl  122) ,K1NBAS(122 ), JH(60) 

CM  I N * I.E10 
CMAX  = -I.E10 
DO  10C0  J=1,NC0L 

IF  ( K I NBAS ( U ) .GT.  0)  GO  TO  1000 

IF  UXUB(J)  - XL  B ( J ) ) .LT.  ZTOLZE)  GO  TO  1000 

D SUM  * 0. 

LL  = LAIJ) 

KK  = LA(J*1)  - 1 
00  50C  I = LL , KK 
IR  » 1 A U ) 

OE  = AU) 

OPRCC  = DE  * Y ( I R ) 

OSUM  * OSUM  ♦ DPROO 
5CC  CONTINUE 

IF  (KINBAS(J)  .EQ.  -1)  GO  TO  60C 
IF  ( CSUM  .GE.  CM  IN  ) GO  TO  1000 
CMIN  * OSUM 


GO  TO  10 
GO  TO  20 


♦ XLB1 ICOL ) 


- XU6 ( ILCL) 


ZTGLSM)  RETURN 


JC0L1  = J 
GO  TC  1000 

6CC  IF  (0  SUM  . LE  . CMAX ) GO  TO  LOGO 
CMAX  =>  OSUM 
JCCL2  = J 
10CC  CONTINUE 

IF  (CP  IN  • LE«  -Z TCCSTJ  GO  70  1500 
IF  (CFAX  -GE-  ZT CO  ST  J GU  TO  200C 
JCOLP  = 0 
RCOST  = 0. 

RETURN 

15CC  IF  ( C PAX  -GE-  ZTCGST)  GO  TO  2500 
16CC  JCOLP  = JC0L1 
RCOST  = CHIN 
RETURN 

20 CC  JCOLP  * JCGL2 
RCOST  = CMAX 
RETURN 

25C0  IF  ( A BS ( CM  INI  - CMAX)  2000, 2000 , 1 60 C 
ENO 

SUBROUTINE  CHUZR 

PERFORMS  M IN- RA T IQ  TEST  FOR  PIVOT  COLUMN  JCOLP  DETERMINED  IN 
SUBROUTINE  PRICE-  SELECTS  PIVCT  ROM  IROWP  FOR  CURRENT  PRIMAL- 
SIPPLEX  ITERATION. 

SUBROUTINE  ADAPTED  FROM  LINEAR  PROGRAMMING  CODE  LPM-l,  WRITTEN 
BY  J* A-  TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

IMPLICIT  REAL**  ( A ,C ,E-H , 0, P , R -W,Z),  REAL*8  (B,D,X,Y), 

1 INTEGER**,  ll-N.O) 

I NT  EG  ER*2  JFi,KlNBAS,LA,LE,IA,IE 
INTEGERS  IPART,  IN  COMB,  I VBND,  I V 10  , l G8N0 
DOUBLE  PRECISION  E UOOOi 
REAL  A (500 ) 

COMMON /BLOCK/  ZTGL  ZE  ,ZTOLP V , iTC CST , ZTOLR J , ZTCL SM , QRO,  CM A, OB A ,QFI  , 

1 CEO,  CBL  ,0A  , OPL , CM  I , OZ  ,0  I ,0F, QN ,0U, NRMAX ,N6MAX , OB, CC, 

2 CE ,CH  ,UL , CO, OK , CM  ,CG,NTMAX 

COMMON/ BL0CK2/  D FP AR T ( 122 ) , RE VBND , I NC V AL , l COL , LI  STL,  I VAL.IOIR, 

1 NPI VCT,IPTYPE,RCCST, IFEAS, I PART (122), INCUMBI 122) , 

2 IVBN0(500i , IVI0I500)  ,I0BND(500) 

COMMON  t ,XLB(122 ) , XOd 1 122 ) , B ( 60 ) , X ( 60 ) , Y ( 60) , YTE MP (60 ) ,OSUM, OPROD, 

1 OY, OE,OP, A,  ICNAM ( 122,2) , NAME (20) , NTEMP( 20 ) , SUM l NF , MST AT , 

2 IOBJ.IRCWP,  IVIN, I VOUT.ITCNT,  INVFRQ, ITRFRQ , I TS I NV , IFFEZ, 

3 JCOLP  ,NROW, NCoL,NELEM,NETA,NLELfcM,NLETA,NUELEM,NUETA, 

A IE(  1000),  !A(500)  ,LE(252)  ,LA(  122)  .KINBASU221 , JH(60) 

IF  (K  INBAS( JCOLP ) -EC.  -1)  GO  TO  10G0 

INCOMING  VARIABLE  AT  LOWER  SOUND 

OP  * 1.E10 

DO  50C  1=  UNROW 

IF  (I  -EC.  IOB J)  GC  TO  500 

ICOL  » JH ( I ) 

IF  (Yd)  -GT.  ZTOLPV)  GO  TO  100 
IF  ( Y ( I ) -LT.  -ZTOLPV)  GO  TO  200 
GO  TO  500 
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732. 

733. 

734. 
7 35. 
736. 
7 37. 
733. 

739. 

740. 


C POSITIVE  COEFFICIENT 

ICC  IF  (X(U  .LT.  IXLB(ICOL)  - ZTOLZEU  GO  TO  500 

oe  = ixm  - xum  icouj/YU) 

IF  TOE  .GE.  0P1  GO  TO  500 
IPTYPE  = 0 
GO  TO  260 

C NEGATIVE  COEFFICIENT 

2CC  IF  <XUJ  -GT.  (XUBIICJU  ♦ 2TULZEJ)  GO  TO  500 
06  = IXUI  - XUB(ICOLU/Y(l  ) 

IF  (OE  .GE.  OP  > GO  TC  500 
IPTYPE  - -1 
25C  OP  = CE 
180WP  = I 
5CC  CONTINUE 

OE  = CP  ♦ XL8<  JC0LP1 

IF  (CE  .LT.  XUB(JCOLP))  GO  TU  6C0 

OP  = XUB( JCOLP)  - XCBIJCOLP) 

NPIVOT  = 0 
RETURN 

6CC  NPIVOT  = 1 
RETURN 
C 

C INCOMING  VARIABLE  AT  UPPER  BOUNO 

C 

ICCC  OP  = -l.EIQ 

00  1 5C0  1 = 1 ,NROW 

IF  (I  .EG.  IGBJ)  GC  TO  1500 

ICCL  = JM(IJ 

IF  ( Y ( I ) .GT.  2T0LPV)  GO  TO  1100 
IF  < Y ( I ) .LT.  -I TQLPV)  GO  TO  1200 
GO  TO  1600 

C POSITIVE  COEFFICIENT 

ncc  if  mu  -cr.  ixubucoo  ♦ ztolzeij  go  to  isoo 

06  = (XI  I I - XUBUCCL11/YII) 

IF  (OE  -LE.  DPI  GO  TO  1500 
IPTYPE  = -1 
GO  TC  1250 

C NEGATIVE  COEFFICIENT 

12CC  IF  (X(U  .LT.  (XL8UC0U  - ZTOLZEU  GO  TO  1500 
OE  = (X(I)  - XLB{  ICOLU/Yd) 

IF  (OE  -LE-  OPJ  GO  TO  1500 
IPTYPE  = 0 
1250  CP  = CE 

IROVP  = I 
15CC  CONTINUE 

OE  = CP  ♦ XU0(JCOLP> 

IF  (OE  .GT.  XLB(JCCLP))  GO  TO  1600 
DP  = XLB( JCOLP 1 - XuB ( JCOLP ) 

NPIVOT  = 0 
RETURN 

16CC  NPIVOT  * l 
RETURN 
ENO 

SUBROUTINE  WKE  TA 
C 

C FOPMS  NEW  ETA-VECTOR  CORRESPONDING  TO  CURRENT  SIMPLEX  PIVOT 

C SUBROUTINE  AO Ap  T £0  FROM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 

C BY  J.A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 

IMPLICIT  REAL*4  ( A ,C,E-H,0,P,R-ta, it  , REAL*8  (6,D,X,Y), 

1 I N TEGER  *4  (l-N.OI 
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79  3. 
799. 

795. 

796. 
797  . 
794. 
799. 
000. 
801. 
80?. 
801 . 
809. 
809. 
8C&. 
6C7. 
8 08  . 

809. 

810. 
811  . 
812. 
81  3. 
819. 
815. 
815. 
617. 
819. 

819. 

820. 
921  . 
822. 
£29. 
829. 

825. 

826. 
827. 
829  . 
829. 
9 30. 
831  . 
832. 
e 33. 
839. 

835. 

836. 
83  7 . 

838. 

839. 
890. 

091  . 

e52  . 
093. 
899. 
896. 

896. 

897. 
899. 
899. 
850. 
851  . 
8 52. 
853. 


INTEGERS  JHjK.IN8ASjLA.LEt  I A , IE 
DOUBLE  PRECISION  t l 10001 
REAL  0(500) 

C 

CGM MON /BLOCK/  ZTOL 2E.2TOLPV, ZTCGST , 2TCLR J . ZT  OL  SM . QRO , QMA,QBA,Qfl , 

1 CEO, CBl.CA .QPL, CM  1, CZjCI.QP, CN.QU, NRMAXjNEMAXjQB.QC, 

2 wf ,0H, JL. UU,OK,CM,QG, NTMAX 

c 

COMMON  E,  XLBU22  ) , X0BU22J  , B(o0  ) , X<  60  ) , Y (6  0)  , YTEMP(60  ) ,OSJM,  DPRODj 

1 DYjOEjOPjA,  ICNAM(  122,21 .NAME (20) .NTEMPi 20 • , SUM IN6 , MSI AT , 

2 (OBJ, IRON P,  IVIN, I VO JT , ITCNT,  INVFRO,  [TRFRQ , I TS I NV , 1FFE  2, 

3 JCOLPfNROW, NCOL.NELEM.NE 1 A , NLE LE M , NLE TA ,NUE L EM , NUET A , 

9 IE ( 1000 ), 1A ( 500) ,LE(252),LA(122),KINBAS(122),JH(60) 

C 

NELEM  * NELEM  » i 
IEINELEMJ  = IROWP 
EtNELEMJ  = YUROWP) 

C 

DO  10C0  I = l.NRGw 
IF  (I  .EC.  IROWP)  GO  TO  l-'OO 
IF  (OABS(Y(I)l  .LE.  2T0L2E)  GO  TO  lo8o 
NELEM  = NELEM  * 1 
IEINELEMJ  = I 
E(NELEM)  =■  Y(Ii 
10CC  CONTINUE 
C 

NET#  = NETA  ♦ 1 

L E ( NE  T A+ 1 J = NELEM  + 1 

RETURN 

END 

SUBROUTINE  SHIFTRi ICLQ.lNEwl 
C 

C REARRANGES  CA TA  STORAGE 

C********oe$CRIPTION  of  paRAME  TERS******** 

C IOLC,  1 NE  W = PARAMETERS  INDICATING  STORAGE  LOCATIONS  FROM  AND 

C TO  WHICH  DATA  IS  TO  BE  TRANSFERRED,  RESPECTIVELY 

C SUBROUTINE  ADAPTED  FROM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 

C BY  J.A.  TUMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 

IMPLICIT  RE  Al.*9  ( A ,C  ,E- H , 0 , P , R-  W , 2 1 , REAl.*8  (B.D.X.Y), 

1 INTEGER*9  (I-N.CJ 

I NTEGEP*2  JH ,K IN BA S , LA , L E , I A , IE 
DOUBLE  PkECISION  tUOOO) 

REAL  #(5001 
C 

COMMON /BLOCK/  2T0L  2 E , 2 TOL P V , 2 TC OS T , ZTOLR J , 2T CL SM , QRO, QMA.CBA ,CFl , 

1 CEOtCBL.QA, QPL , QM  I,C2,Cl,UFt0N, QU, NR  MA  X , Nt  MAX , QB , QC , 

2 CE.WH, CL, QO,QR,CMtCG, NTMAX 
C 

CCMMCN  E, XLB< 122 ) , XUB ( 122  J ,B(60),X(60  ),Y(60),YTEMP(fa0t,DS0M, OPROD, 

1 DY , Dc.DP, A,  IClNAMI  122,2  J .NAME <20 ) , N T EM P( 20 ) , S JM l N6 , MST  A I , 

2 JOB  J,  IROWP,  IVIN,  I VOUT,  ITCNT,  [NVFHC,  ITRFP.Q  , l TS  I NV , IFFE  2 , 

3 JLuLP.NRUW, NCUL, NELEM, NE  TA ,N LE LEM , N LE T A , NUL LEM , NUE T A , 

9 I E ( 1000) , 1A ( 500 J , LEI  2 52)  ,LA(  12  21 ,KINB AS< 122 ) , JHI60) 

C 

DIMENSION  BARR  AY  (2  90 
EQUIVALENCE  ( BARRA Y U ), B ( 1 ) ) 

I FG  = ( IOLC  - I)  * NR MAX 
IFN  = (INEW  - It  * NR MAX 

C 


78 


854. 

855. 

856. 
8 5 7. 
868. 

859. 

860. 
86  L . 
862  . 

863. 

864. 

865. 

866. 

867. 

868. 
869. 
8 70. 
671  . 

e?2. 

873. 
8 74. 
8 75. 

876. 

877. 

878. 

879. 
880- 
881. 
682. 
8 83. 

884. 

885. 

886. 
887  . 
888. 
689. 

850. 

851. 

892. 

893. 

894. 
895  . 
8 96. 
897  . 
899. 
899. 
500. 
501  . 

502. 

503. 

904. 

905. 
9C6  • 
507. 
508  . 
909. 
510. 
911. 

512. 

513. 
• 14. 


DC  10C0  1 = i » NR  OK 
6ARRAYUFN  * l)  = BARRAYdFO  ♦ 1J 
10C0  CONTINUE 
RETURN 
END 

SUBROUTINE  INVERT 

c 

C COMPUTES  INVERSE  OP  CURRENT  BASIS  8Y  LU  DECOMPOSITION 

C SUBROUTINE  ADAPTED  PROM  LINEAR  PROGRAMMING  CODE  LPM-l,  WRITTEN 

C 8 Y J.A.  TOMLIN  1GPER AT IONS  RESEARCH,  STANFORO  UNIVERSITY) 

C 

IMPLICIT  REAL*4  ( A ,C , E-H , 0, P , R~ W , 2 ) , REAL*8  (B,0,X,Y), 

1 INT£GER*4  (I-N.U) 

T NTSGER*2  JH, K IN6A S,LA ,LE , I A , IE 
DOUBLE  PRECISION  E i iUOO) 

REAL  5(500) 

C 

COMMON/ SLOCK/  ZT QL Z fc, ZTOLP V. Z TC OST , ZTOLR J , ZTGL SM , QRO , QM A , QB A , QF I , 

1 CEO, CttL,QA,GPL,£!Ml«QZ«Ql,QF»QN,QU, NRHAX ,NEMAx»QB,QC, 

2 QE ,OM,QL,QQ,QR,UM,aG, NTMAX 
C 

CCMMQN  6, XL B (122)  , XUB(  122)  ,0(60)  ,X(60)  ,Y  160)  , YTE  MP  (60  ) ,OSUM,  DPRUD, 

1 0Y,0£,0P,Ar  I CNAM  ( 122,2) , NAME (20) , N TEMPI  20 ) , SUM  I NF , MST A 7, 

2 10BJ, IRCWP,  IVIN, I VOUT, I TCNT,  INVFRQ , ITRFRQ , I TS I NV,  IPFEZ, 

3 JCGLP,NRGW, NCOL , NELcM , NE T A ,NLELEM, NLE TA .NUELEM  ,NUETA, 

4 I E ( 1000  ) , I A ( 500 ) » Lc (252 ) ,LA(  122) , K I NB AS ( 1 22 ) , J H( 60) 

C 

INT EG  ER*2  MREG.HREG, VREG 

DIMENSION  MREG (60 ) , HREG( 60) , VRE G ( 60  ) 

ECU  I VALENCE  (MREG<  ) ) , YTE MP( 1 ) ) , (HRE G( 1 ) , YTEMP( 31 ) ) , < VREGl 1 ) , XI l)  ) 

C 

C SET  PARAMETERS 

C 

NETA  = 0 
NLE  T A = 0 
NUETA  = 0 
NELEM  = 0 
NLELEM  = 0 
NUELEP  = 0 
NABCVE  = 0 
LE(  1)  = I 
LR1  = I 
KRi  = 0 
LR4  — NROW  ♦ I 
KR4  = NROW 
C 

C PL  T SLACKS  AND  ARTIFICIALS  IN  PART  4 AND  REST  IN  PART  1 

C 

DO  IOC  I - 1 » NROW 

IF  (JFUJ  .GT.  NROW)  GO  TO  50 

LR4  = LR4  - 1 

MREG  t LR4 ) * JH ( I ) 

VREG ( LR41  = JHIII 
GO  TO  90 

SC  KR1  = KR1  ♦ 1 

VPEG(KRI)  = JHU) 

5C  HREG( U = -1 
JHII)  = 0 
ICC  CCN T t NUE 
C 

KR3  = LR4  -1 
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<515. 

516. 

SIT. 

518. 

919. 

920. 

921. 

922. 

923. 

929. 

925. 

926. 

927. 

528. 

529. 

930. 
931  . 
932. 
533. 
934. 

535. 

536. 

937. 

938. 

539. 

540. 
941  . 
542. 

943. 

944. 

945. 

946. 

947. 

548. 

549. 
950. 
551  . 

552. 

553. 

554. 

555. 

556. 

557. 

558. 

559. 

560. 
561  . 

562. 

563. 
964  . 

565. 

566. 

567. 

568. 
969. 
5 70. 

971. 

972. 
973  . 
5 74. 
575. 


LR3  = LR4 
C 

00  20C  1 = LR4.KR4 
IP  = MREG ( 1 ) 

HREG ( IRJ=  C 
JH ( [R  ) s 1R 
KIN8ASUR)  = IR 
2CC  CONTINUE 
C 

C PULL  OUT  VECTORS  BELOW  BUMP  AND  GET  ROW  COUNTS 

C 

NBNCN l * KR4  - LR4  ♦ 1 
IP  ( K P 1 .EC.  01  GO  TO  1190 
J = LP1 

210  IV  = VREGIJ) 

LL  = LAI  I V 1 
KK  = LA( IV+ll  -1 
IRCNT  = 0 
00  22C  1 = LL , KK 
NBNCN 2 = NBN0N2  ♦ 1 
IR  = I A( l 1 

IF  1HREGUR)  .GE.  C)  GO  TO  220 
IRCNT  = IRCNT  ♦ 1 
HREG ( IR)  = HREG! IR  1 - 1 
IRP  = IR 
22C  CCNTINUE 

IF  (IRCNT  - 1)  230,250,300 
23C  WRITE (6,8000) 

8CCC  FORMAT (16H0MATR1X  SINGULAR  ) 

K IN8AS! IV ) = 0 
VREG( J)  = VREGlKPl  ) 

KRl  = KRl  - 1 
IF  (J  .GT.  KR1  ) GO  TO  310 
GO  TO  210 
C 

25C  VREG ( J ) = VREGIKRl  ) 

KRl  = KR1  - 1 

LR3  = LR3  — 1 

VREGILR3)  = IV 

MREG ( LR3 ) = IRP 

HREG ( IRP)  = 0 

JH! IRP)  = IV 

KINBAS(IV)  = IRP 

IF  ( J .GT.  KRl ) GO  TO  310 

GO  TO  210 

3C0  IF  ( J .GE.  KRl)  GO  TO  310 
J = J+l 
GO  TO  210 
C 

C PULL  OUT  REMAINING  VECTORS  ABOVE  AND  BELOW  THE 

C 8UMP  AND  ESTABLISH  MERIT  COUNTS  OF  COLUMNS 

C 

31G  NVREM  = 0 

IF! KR 1 .EU.  0)  GO  TO  1190 
J = LPl 

32C  IV  « VREG! J) 

LL  = LAI1V) 

KK  * LA! I V*1 ) - 1 
IRCNT  = 0 
GO  8CC  I « LL, KK 
IR  = I A!  I ) 
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976. 

IF(HREGUR)  .NE.  - 2 J GO  TO  400 

977. 

C 

978. 

C 

PIVOT  ABOVE  BUHP  I PART  OF  L> 

979. 

C 

990. 

NA8CVE  = NABOVE  ♦ 1 

981  . 

IROWP  = 1 R 

932. 

CALL  LNPACKUV) 

983. 

CALL  WRETA 

989. 

NLETA  = NETA 

985. 

JH ( IR)  = IV 

986. 

KINBASCIV1  = I P 

987. 

VREG ( J 1 = VREG1KR1 1 

988. 

KR1  = Kft 1 - 1 

989. 

NVREM  = NVREM  ♦ 1 

990. 

MREG1IR1  = IV 

991  . 

GO  TO  940 

992. 

C 

993. 

4CC 

I F (HREGUR1  .GE.  01  GO  TO  800 

999. 

IRCNT  = IRCNT  ♦ 1 

995. 

IRP  = IR 

996. 

8CC 

CONTINUE 

997. 

C 

998. 

IF  (IRCNT  - 1)  610,900,1000 

999. 

8 1C 

WRITE  (6,8000) 

IQQO  . 

KINEASlIVl  = 0 

1001. 

VREG ( J)  = VREG1KR11 

1002. 

NVRFM  = NVREM  * 1 

1003. 

KR1  = KR1  - 1 

1004. 

IF  (J  .GT.  KR1 1 GO  TO  1010 

1005. 

GO  TO  320 

1006. 

C 

1007. 

C 

PUT  VECTOR  BELOW  BUMP 

1008. 

C 

1C09. 

9CC 

VREG ( J 5 = VREGIKR1J 

1010. 

NVREM  = NVREM  ♦ 1 

10U. 

KRl  = KR1  - 1 

1012. 

LR  3 = LR  3 — 1 

1013. 

VREG ( LR3 ) = IV 

1C14. 

MREG ( LR3 ) * IRP 

1015. 

HREG(IRP)  = 0 

1016. 

JH ( 1 R P 1 * IV 

1C  1 7. 

KIN8ASUV1  * IRP 

1018. 

C 

1C  19  . 

C 

CHANGE  ROW  COUNTS 

1C20. 

C 

1021. 

9 40 

DO  95C  II  = LL.KK 

1C22  . 

IIP  = IA(  l ( 1 

1023. 

IF  (HREG(llR)  .GE.  01  GO  TO  950 

1024. 

HREG  ( HR)  = HR  EG  ( 1 IR)  ♦ 1 

1025. 

9 5C 

CONTINUE 

1026. 

IF  (J  .GT.  KR1J  GO  TO  1010 

1027. 

GO  TO  320 

1028. 

10CC 

IF  (J  .GE.  KRl)  GO  TO  1010 

1029. 

J = J»1 

1030. 

GO  TC  320 

1031. 

1010 

I F ( N V P EM  .GT.  0)  GO  TO  310 

1C32. 

C 

1033. 

c 

GET  MERIT  COUNTS 

1034. 

c 

1035. 

1C2C 

IF  IKPt  .EC.  0)  GO  TO  1190 

1036. 

00  UCO  J * LR1.KK  l 

u 


1037 

1038 

1039 
1C40 
1041 
104? 

1043 

1044 

1045 

1046 
1 C47 
1043 
1C49 
IC5Q 
1051 
1C52 

1053 

1054 

1055 

1056 

1057 

1058 
1C59 
1C6C 
1C61 
1062 
1063 
1C64 
1065 
1C66 
1067 
1C68 
1069 
1070, 
*071 
1072, 
1073 
1C74 
1C  75 . 

1076. 

1077. 
’078, 
1 C 79 
1080. 
1081 
1082. 
1083 

1084, 

1085. 
1086 
1087 , 
1C83. 
1C89. 
1C9Q, 
1C9.  . 
1092. 
1C93. 
1094 
1C95. 

1096. 

1097. 


IV  = VPE6( J i 
Lt  = L A ( I V 1 
KK  = LA( IV+U  - 1 
IMCNT  = 0 
DC  1050  I = LL.KK 
1R  = IA1I) 

IF  (HREGIIR1  .GE.  01  GO  TO  1050 
IMCNT  * IMCNT  - IHREG  ( IR  ) Fll 
1050  CONTINUE 

MREG(J)  = IMCNT 
1100  CONTINUE 


SORT  COLUMNS  INTO  MERIT  ORDER 
USING  SHELL  SORT 


ISO  = 1 

1 1C6  IF  < KR1  .LT.  2*1 SD  1 GO  TO  1108 
ISO  = 2*1  SO 
GO  TO  11G6 

nee  isd  = iso  - i 

ENO  Of  IN  I T I AL 1 2 AT  ION 

11C1  IF  (ISC  .LE.  01  GO  TO  1107 
ISK  = 1 

11C2  ISJ  = ISK 

ISL  = ISK  ♦ ISD 
ISY  = MREG(ISL) 

ISZ  = VKtC*<  ISL  ) 

11C3  IF  (ISY  .LT.  MPEG(ISJl)  GO  TO  1104 

11C5  ISL  = ISJ  ♦ ISD 
MREG{  ISL1  = ISY 
VREGIISL1  = ISZ 
ISK  = ISK  ♦ 1 

IF  ((ISK  * ISD1  .LE.  KR11  GO  TO  1102 
ISO  = USD  - 11  / 2 
GC  TO  1101 

1 1C4  ISL  = ISJ  ♦ ISD 

MREG ( 1SL1  = MREGt I Sj) 

VREGI ISL)  * VREGII SJ1 
ISJ  = ISJ  - ISD 
IF  (ISJ  .GT.  0)  GO  TO  1103 
GO  TO  1105 

1 1C 7 CONTINUE 

ENO  OF  SORT  ROUTINE 


PUT  OUT  BELOW  8UMP  ETAS  (PART  OF  U) 


U9C  NSLCK  * 0 
NBELOh  = 0 
NELAST  = NEMAX 
NTLmST  = NTMAX 
LEINTLAST  ♦ 11 


NELAST  ♦ l 


LR  ■=  LR3 

IF  (LR3  .GE.  LR4J  LR  - LR4 
IF  (LR  .GT.  KR4J  GC  TO  2050 
JK  = KR4  ♦ 1 

00  2CC0  JJ*  LR.KR4 
JK  * JK  - 1 

IV  * VREGI JK 1 

1 * MREGIJKl 
NBELOH  * NBELOH  ♦ 1 


1098. 

1099. 
UOO. 

12CC 

1101. 

1102. 

1103. 

125C 

UOv. 

C 

1105. 

13CC 

UOb. 

1 107. 

1108. 

1109. 

1110. 
mi. 
1112. 
1113. 
1119. 

13SC 

1115. 

19C0 

1116. 

1117. 

1118. 

1119. 

1120. 
1121- 
1122. 

20CC 

1123. 

2050 

1129. 

C 

1125. 

c 

1126. 

c 

1127. 
1128- 
1 129. 
1130. 
1131  . 

1132- 

1133- 
1139. 

1135. 

1136. 

1137. 
1139. 
1139- 

2100 

1190. 

1191. 

1192. 

1193. 
1199. 

C 

1195. 

215C 

1196. 

C 

1197. 

C 

1198. 

C 

1199. 

1150. 

1151. 

1152. 

1153. 

2160 

1159. 

1155. 

1156. 

1157. 

C 

1158. 

c 

!F  (IV  .GT.  NRCM’  GO  TO  1200 
NSLCK  = NSLCK  ♦ 1 
LI  = UilV) 

KK  = LAUV+11  -1 

IF  IKK  -GT.  IL j GO  TO  liOO 

IF  (ABS(AIU)  - 1.)  -LE-  2TGLZE)  GO  TO  2000 

NUETA  = nueta  ♦ 1 
00  19CG  J = LL.KK 
IF  = IAIJ1 

IF  UR  .£0.  DGO  TO  1390 
IE  t NE  LAST ) « 1R 
EINELAST)  * A(J1 
MELASI  = NELAST  - 1 
NUELE  M = NUELEM  ♦ X 
GO  TO  1900 
EP  = AlJl 
CONTINUE 
i E ( NE  LAST J * I 
E (NELAST  J = EP 
LE I NTLAS7 1 = NELAST 
NELAST  a NELAST  - 1 
NTLAST  * NTLAST  - i 
NUELER.  = NDELEM  ♦ 1 
CON  T l NOE 

I F ( KR  i .EQ.  01  GO  TO  3500 

DC  L-U  DECOMPOSITION  OF  HUMP 

DC  3000  J * LRl.KR  l 
IV  = VREGIJI 
CALL  LNPACK ( I V J 
CALL  FTRAN  <2 J 
IRGWP  = 0 
IKCRIN  * -999999 
DO  2100  I = l.NROW 

IF  (DA3S( Y ( I 1 1 .LE.  ZTOLPVl  GO  TO  2100 
IF  (HREGU)  .GE.01  GO  TO  210 0 
IF  IHREGUl  .LE.  IRCMiNl  GO  TO  2100 
IRCMIN  = HREGU) 

IRGWP  = I 
CONTINUE 

IF  UPCwP  -GT.  01  GO  TO  2150 
WRITE (6,30001 
KIN8ASCIV1  * 0 
GO  TO  3C00 

INC5*  * HREGUWGWP)  ♦ 3 

WRITE  L AND  L ETAS 

IF  (J  .60.  KR1)  GO  TO  2160 

NELER  •*  NELEM  + 1 

IEINELEMJ  a IRON P 

E(NELEM)  = YIIR0WP1 

00  23C0  1 * 1 , NROW 

IF  (1  .60.  IR0WP1  GO  TO  2300 

IF(OABS(VUU  .LE.  1T0LZE1  GO  TO  2300 

IF  IHREGUl  .GE.  0 1 GO  TO  2200 


L ETA  ELEMENTS 


1159. 

C 

1160. 

NELEM  - NELEM  ♦ 1 

1161. 

1 E ' N6LEM1  = 1 

1162. 

E(NELEM)  = YU) 

1163. 

GO  TO  2300 

1 164. 

c 

1165. 

c 

U El  A ELEMENTS 

1166. 

c 

1167. 

22CC 

1 E ( NE  LAST  1 = 1 

1166. 

E (NEL  AST  1 = Y 4 i J 

1169. 

NELAST  = NELAST  - 1 

1170. 

NUELEM  * NUELEM  * 1 

1171. 

23C0 

CONTINUE 

1172. 

C 

1173. 

JH(IRCWP)  = IV 

1174. 

K I NBAS ! I V 1 = IROWP 

1175. 

NUETA  = NUETA  ♦ 1 

1176. 

I 6 { NE l AST  1 = IROWP 

1177. 

IF  U -Nt.  KR11  GO  TO  2330 

1178. 

E1NELAST)  = Y l IROWP) 

1 179. 

GO  TO  2340 

1180. 

2330 

E (NELAST ) = 1. 

1181. 

NET A * NET A + 1 

1182- 

LElNETA+il  = NEL EM  ♦ 1 

1183. 

2 34C 

NUELEM  = NUELEM  ♦ 1 

1 184. 

LE(NTlAST)  = NELAST 

1 185. 

NELAS 1 * NELAST  - 1 

1186. 

NTLAST  = NTLAST  - 1 

1187. 

C 

1188  . 

C 

LPOATE  ROW  COUNTS 

1139. 

C 

1190. 

00  235C  I = 1 r NROW 

1191  . 

IF  (DAES(Ylil)  .LE.  2T0LZE)  GO 

TO  2350 

1192. 

IF  (FREoUl  .GE.  01  GO  TO  2350 

1193. 

HREGl  I)  = HREG1I 1 - INCR 

1194. 

IF  (HREG(l)  -GE.  0)  HREG(I)  = - 

1 

1195. 

235C 

CONTINUE 

1196. 

HREGl  IROWP ) = C 

1197. 

30CC 

CONTINUE 

1198. 

c 

1199. 

c 

MERGE  L ANO  U E TAS 

1200. 

c 

1201 . 

35CC 

NLETA  * NETA 

1202  . 

NETA  = NLETA  ♦ NUETA 

1203. 

NLELEM  = NELEM 

1204. 

NELEM  ■=  NLELEM  ♦ NUELEM 

1209. 

IF  (NUELEM  .EG.  0)  GO  TO  3550 

1206. 

CALL  SHFTE 

1207. 

C 

1208. 

C 

INSERT  SLACKS  FOR  DELE  TEC  COLUMNS 

1209. 

C 

1210. 

3550 

00  36CC  1 - It NROW 

1211. 

tF  l JK1  1 .NE.  01  GO  TO  3600 

1212- 

JHdl  * 1 

1213. 

IROWP  * I 

1214. 

CALL  UNPACK ( I 1 

1215. 

CALL  FTRAN(l) 

1216. 

CALL  WRETA 

1217. 

36CC 

CONTINUE 

1218. 

C 

1219. 

c 

UPOATE  X 
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1220.- 
1221  . 
1222. 

1223. 

1224. 

1225. 

1226. 
1227. 
1223. 

1229. 

1230. 
1231  . 
1232. 
1233  . 

1234. 

1235. 

1236. 

1237. 

1238. 

1239. 

1240. 

1241. 

1242. 

1243. 

1244. 

1245. 

1246. 

1247. 

1248. 

1249. 

1250. 

1251. 

1252. 

1253. 
12  54. 

1255. 

1256. 

1257. 

1258. 

1259. 
1260  . 
1261. 
1262. 

1263. 

1264. 

1265. 

1266. 

1267. 

1268. 

1269. 

1270. 
1271  . 

1272. 

1273. 
12  74. 

1275. 

1276. 

1277. 
12  78. 
1279. 
1289. 


CALL  SHIFTR ( 1 ,3) 

OC  90CG  J - l » NC  QL 
IF  ( K IN5A  $ ( J ) ) 860i 
86CC  D£  = XUB(J) 

GO  TO  8750 
87CC  06  = XLB4J1 
875C  LL  = LA ( J ) 

KK  = L A i J 4 1 1 - 1 
OC  8300  I =LC»KK 
IP.  = I A ( 1 > 

88C0  YURI  = YURI  - A< 
SCCC  CCNTIMJE 

CALL  FTRAN(l) 

CALL  SMFTPi3,2) 

RETURN 

ENC 

SUBR0L7 IN6  UNPACK ( 

: fc'XPANOS  COMPRES 

:**,*»***OESCRIPTICN  OF  I 

: iv  = parameter 

: SUBROUTINE  ADAP 

: BY  J. A . TOMLIN 

IMPLICIT  REAL«4  (A 
1 INTEGER*4 

INTEG  ER*2  JH.KINBA: 
DOUBLE  PRECISION  E 
REAL  A1500J 

COMMON/BI.UCK/  ZTGL, 

1 CEO. ; 

2 06,01 

COMMON  E.XL8U22),  . 

1 OY.UE.OP.A, 

2 lOBJURUwP, 

3 JCGtP.NROw, I 

4 IE  1'.  COO  1,1  A 

00  IOC  I = l.NROW 
YII)  * 0. 

ICC  continue 

LL  = LA( I V ) 

KK  = LAI  I V*U  - 1 
DO  20  C l = LL , KK 

ir  - i«m 

Y u R 1 = A 1 1 1 
2CC  C0N7 INUE 

RE1LRN 

ENO 

SUBROUTINE  SHF TE 

SUBROUTINE  FOR 
SUBROUTINE  aoap 
BY  J.A.  TOMLIN  I 


C,  8700, 9000 


SED  MATRIX  COLUM 
PARAMETERS******** 

INDEXING  COLUMN  TC  BE  EXPANDED 

****************** 

TEO  FROM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 
(OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

,C,E-H,G,P,R-W, 2)  , RE AL*8  IB,D,X,Y1, 

( l-N.Ql 

S,LA,LE,IA,  IE 
(1000) 


ZE.ZTOLPV.ZTCCST, ZTOLR J , ZTOLSM , QRO, QMA ,UBA ,QF I , 
CbL,UA,UPC,QMI,CZ,01,QF,GN,  QU,  NRMA  X , NE  MAX , QB,  OC, 
H,QL,UO,0R»0M,QG, NTMAX 

XO 8(122), B(60),X( 60 ) , Y ( 6 0) , YTE MP ( 60 ) , DSUM, OPROD, 
(CNAMt  122,2)  .NAME  (20)  , N TEMPI  20  ) , S'JM  INF  , MST  AT, 

I VIN, ( VOUT, I TCNT,  INVFRO. IT RFRQ , 1 TS I NV , IFFEZ, 
NCOL.NECEM, NE  T A .NLELEM , NLE TA.NUELEM , NUE TA , 

(500) ,LE<252) ,LA{ 122) , KINB AS ( 1 22 ) , JH(60) 


INVERT 

TEU  FROM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 
(OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 
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1281  . 
1282. 

1283. 

1284. 

1285. 

1286. 
128?  . 
1268. 

1289. 

1290. 

1291. 

1292. 

1293. 

1294. 
1295- 
1296. 
129?  . 

1298. 

1299. 

1300. 

1301. 

1302. 

1303. 
1 3C4  . 
1305- 

1306. 

1307. 

1308. 

1309. 

1310. 

1311. 

1312. 

1313. 

1314. 

1315. 
1318. 

1317. 

1318. 

1319. 

1320. 

1321. 

1322. 

1323. 

1324. 

1325. 

1326. 

1327. 

1328. 

1329. 

1330. 
1331  . 

1332. 

1333. 

1334. 

1335. 

1336. 

1337. 

1338. 

1339. 

1340. 

1341. 


IMPLICIT  R £ AL*  4 (A  ,C  ,E-H  , Q, P , R- W , Z)  , REAL*  6 <B,D,X,Y), 
i iNr£36ft*4  u-N,a> 

INTEGER*2  JH , K IN6A  S ,LA  ,1.  E , I A , IE 
00U8LE  PRtCISICN  £ U000) 

REAL  A ( 500 1 
C 

COP MON/BLOCK/  ZTOLZE,ZTOLPV,ZTCOST,ZTOLRJf ZTQLSM,ORO,GMA,gbA,QFl . 

1 LEO,CUL,aA,Q?L,OMI,QZ,CI,QF,aN,QU,  NRMAX  ,N£MAX,  08,  OC. 

2 OE.UF.GL.uO.GR, CM, QG, NTMAX 

C 

COMMON  E, XL 6 11 22) , >Jb(122 J .8(60) , XI 60) ,Y<60) ,YTEMP<60 1 ,DSUM, DPROD, 
l OY.OE.DP, A,  ICNAMI  122,2),NAME(20i,NT6MPl20J,SUMlNf  .MSTAT, 

I08J.1RCWP,  IV IN, I VOUT, ITCNT,  INVFRQ,  ITRFPO, ITS INV, IFFE2, 

3 JCOLP.NROW,  NCOL,NEL£M,N£TA  ,NI.E LEM  , NLE  T4 , NUELf  M , NUET A , 

4 I E ( 1000),  I A OOO)  ,4.61252)  ,LA(  122 ), KI NBAS!  122 ),  JHI 60) 

C 

C SHIFT  IE  ANO  E Of  <J  ELEMENTS 

C 

Nf  = NEMAX  - NUELE H * 1 
I NCR  * C 

00  10CC  I * NF,NEMAX 
INCR  = I NCR  + 1 

1 £(  NLEL6M  ♦ INCR  1 * 1EU) 

E ( .NLE LEM  * INCR)  = £(I) 

10C0  CONTINUE 
C 

ID  I F * NEMAX  - NLELEh  - NUELEM 
Nf  = NTMAX  - NUETA  ♦ 1 
INCR  = 0 

DO  2000  I * NF, NTMAX 
INCR  = INCR  + 1 

LEiNLETA  * INCH)  = LEII)  - IDIF 
20C0  CONTINUE 

LE I NET  A*l ) = NELEM  ♦ l 

RETURN 

END 

SUBROUTINE  UPdETA 
C 

C UPCATES  R IGHT-H ANO  SIOES  TO  REFLECT  NEW  BASIS  RESULTING  FROM 

C CURRENT  SIMPLEX  PIVUT 

C SUBROUTINE  ADAPTED  FROM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 

C BY  J.A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

C 

IMPLICIT  REAL*4  ( A , C , E-H , 0, P , R- M , i ) , REAL*8  !B,0,X,Y), 

I INTEGERS  (l-N.Q) 

INTEG  ER*2  JH, K INBA S, LA , L E , I A , IE 
INTEGE«*2  I PART,  INCUM8,I VBNO, IVID.ICBNO 
DOUBLE  PRECISION  E ( 1000) 

REAL  t ( 500  ) 

C 

COMMON, BLOCK/  VIOL  ZE.ZTOLPV.ZTCCST, ZTOLRJ.ZTOLSM , QRO , QMA ,0b A , OF  I • 

1 CEO, C8L.UA, OPL.QMI, 02,01, OF, ON, OU, NRMAX, NEMAX, US, UC, 

2 QE,ClF,CL,QO,UR,QM,QG,NTMAX 
C 

CCMM0N/BL3CK2/  OFP  ART (12 2 ) ,Rfc V8ND , I NC VAL , I COL, L I STL , I V AL , I D ! R , 

1 NPI  VOT,IPTYPE,RCCST,  1FEAS,  I PART  1122  )»  INCJMBU22I  , 

2 I V8N0I500) , I VI ui  500) , IOBNDI 500) 

C 

COMMON  £,  XL6(  122),  XUBU22)  ,6(60)  ,X(  60) , Y(60)  ,YTE  KPI60  ) ,DSUM,  OPROO, 

1 OY ,OE,OP, A,  ICNAMI  122,2) .NAME (20) ,NTEMP(20 ) , SUM  INF .MSTAT, 

2 lObU.lROWP,  IVlN.i VOUT , ITCNT,  INVFRQ,  IT RFRO , I TS I NV, IFFE2, 
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n<*2. 

1343. 

1344. 

1345. 

1346. 

1347. 
1343. 

1349. 

1350. 

1351. 

1352. 

1353. 
1354  . 

1355. 

1356. 
135  7 . 

1358. 

1359. 

1360. 

1361  . 

1362  . 

1363. 

1364. 

1365. 

1366. 
1367  . 

1368. 

1369. 

1370. 

1371. 
1372  . 

1373. 

1374. 

1375. 

1376. 

1377. 
1379. 
1379. 
13  80. 
1381  . 
1332. 
1 383. 

1384. 

1385. 

1386. 

1387. 
1338. 
1389. 
1 390. 
1391  . 

1392. 

1393. 

1394. 

1395. 

1396. 
1 39  7. 

1398. 

1399. 

1400. 

1401. 

1402. 


3 jCULP.NRO*, NCOL, NELEM, NE TA .NLELEM , NLE T A ,NUELEM , NUET A , 

4 I E > 1 000 1 < I A i 500) , LEI  2 52  ) ,L A ( 122) , K 1 N8 AS ( 1 22 ) , J H ( 60) 


OC  10CC  I--1.NRO 

1CCC  X ( I)  = X< 1 i - Y< 1 ) *0P 

IF  (NPIVOT  .EQ.  1)  GC  TO  2000 
K I NB  A S ( JCOLP ) = -( KINBASI JCOLP)  ♦ 1) 
ivour  = jcoi-p 
RETURN 

2CC0  X(IRONP)  = CE 

1  VOUT  = JH( IKORP) 

K I NB A $ ( JCOLP ! = IRCMP 
KlNBASlIVOIjT)  * IP1YPE 
JH ( IRCRP 1 = JCOLP 
RETURN 


C 

C 

C 

c 

c 

c 


c 


c 


r 


c 


END 

SUBROUTINE  NORMAL 

SERVES  AS  MASTER  PROGRAM  FOR  LINEAR  PROGRAMMING  COMPONENT 
(KEVISUO  PRIMAL-SIMPLEX  METHCO). 

SUBROUTINE  AOAPTEO  FROM  LINEAR  PROGRAMMING  CODE  LPM-1,  hRITTEN 
8Y  J.A.  TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 

IMPLICIT  REAL*4  (A ,C,E-H,0,P,R-ta, Z)  , REAL*8  (B,D,X,Y), 

1 INTEGER*4  (I-N.Q) 

!NTEGEP*2  JH, K IN8A S,L A, LE , 1 A , IE 
I NTEG  Eft*2  I PART, INCOME, I VBND, IV  ID, IC8ND 
00U8LE  PRECISION  EllOOO) 

REAL  A ( 500 ) 

COMMON/ BLOCK./  ZT OL Z fc , ZT OLPV , ZTCOST , ZT OLR J , ZT CLSM , QRO,  QMA.QBA  ,QFl  , 

1 CEO, CBL.QA ,OPL, oMl.CZ, Q t , QF , QN , QU, NRMAX , NEMAX, QB, «C, 

2 Q£ ,QH,OL, 00,0ft, CM, UG.NTMAX 

CCMMCN/8LOCN2/  DEPART (12 2) .REV8ND, INCVAL, I COL, LI  STL, I VAL , 1 01 R, 

1 NPIVOT, I PTYPE.RCOST, IFEAS,1PART(122),INCUMB(122), 

2 I V8 NO (500  ) , I VI 0( 500)  , 1 08N0 ( 500) 

CCMMCN  E,XLfl( 122 ) , XUB ( 1 22 ) , B ( 60 ) , X( 60 ) , Y ( 60) , YTE MP I 60 ) ,OSUM, DPROD, 

1 OY  , LE,  DP,  A,  i CNAM ( 122 , 2 ),  NAME  ( 20 j , N T EM P(  20  ),  SOM  I NF  , MS T A T, 

2 IOEJ.IRCRP,  IV  IN, I VOUT , ITLNT, 1NVFR 0 , I T RFRQ , I TS 1 NV , 1FFEZ, 

3 jCULP»NRO«, NCOL, N£LcM,NE TA ,NLELEM,NLETA,NUELEM ,NJETA, 

4 I E 1 1000), I A (500) , LEI  252)  ,LA(  122) ,K INBAS( 122), JH(oQ) 


IF  (ITSINV  -LT.  INVFRQ)  GO  TO  1500 
1CC0  CALL  INVERT 
ITSINV  = 0 


C 

C SIMPLEX  CYCLE 

C 


15CC  CALL  fCRMC 
CALI.  eTRAN 
CALL  PRICE 

IF  (JCOLP  .GT.  0)  GO  TO  3000 
IP  (MSTAT  .EO.  Q I ) GO  TO  20C0 
MSTAT  = U8L 
GO  TO  6000 
20CO  MSTAT  = QN 
GO  TO  6000 
JOCC  IVIN  =*  JCOLP 

CALL  UNPACK! JCOLPI 
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7 


1403. 
14  04  • 

1405. 

1406. 

1407. 
1403. 

1409. 

1410. 

1411. 

1412. 

1413. 

1414. 

1415. 

1416. 

1417. 
1413. 

1419. 

1420. 

1421. 
1422  . 

1423. 

1424. 
1423. 

1426. 

1427. 

1428. 

1429. 

1430. 
1431  . 

1432. 

1433. 

1434. 

1435. 

1436. 


1437 

1438 

1439 

1440 

1441 

1442 

1443 
1*44 
1*45 
l *46 

.47 

1443 

1449 

1450 
1461 

1452 

1453 
14  54 
1455 
1455 

1457 

1458 

1459 
1463 

1461 

1462 

1463 


CALL  F TR AU  1 1 1 

CALL  CHJZR 

CALL  CPBETA 

ITCNT  = ITCNT  ♦ 1 

ITSINV  = ITSINV  + 1 

IF  (NPIVOT  .60.  01  GO  TO  4010 

IF  (NELEM  .GT.  5uOC)  GO  TO  1000 

CALL  WRETA 

4010  IF  (ITSINV  .UE.  INVFRU)  GO  TO  1000 
IF  (ITCNT  .GE.  I TR  FRO  1 oO  TO  6000 
GO  TO  1500 
C 

6CCC  RETURN 
END 

SUBROUTINE  BANCB  ' 1 MTBO  1 
C 

C MASTER  PROGRAM  FCR  BRANCH- AND-80UN0  INTEGER  PROGRAMMING  ROUTINE 

C AL  SC  SERVES  AS  MASTER  PROGRAM  FOP  REOPTIMIZATION  VIA  OUAL- 

C SIMPLEX  METHOD  AFTER  A FjRwARD  BRANCH. 

C********CFSCRIPT  ION  OF  PARAMETERS******** 

C INITBU  = INITIAL  LONER  80JN0  ON  MAXIMAL  OBJECTIVE  VALUE  (INPJT1 

C ************************************  ****** 

c 

IMPLICIT  R£AL*4  ( A , C ,E- H , G,  P , R- W,  Z)  , RE AL*8  (B,D,X,Y), 

1 INTEGER*4  U-N,G) 

I N T EG  ER*2  JH ,K INBA S , LA , L E , I A , I E 
INTEGER*2  I PART,  INCLMB, IVBNO.l VID.ICBND 
OOUBLE  PRECISION  E(IOOO) 

REAL  A ( 500  1 

COMMON/BLOCK/  ZTOL  Z E , L TOCP V , Z TCOS T , ZTOLR J , ZT OL SM , QRO, QMA , QB A ,Qf l , 

1 CEO, OBL , QA , OPL , UMl.GZ.UI, OF , ON , QU, NRMAX , NE  MAX , UB , CC, 

2 CE ,UH,OL,QO,WR,UM,QG,NTMAX 

COMMON /BLOC  142/  UFP  ART  ( 12  2 1 .RE  V6N0 , 1 NC  VAL  , l COL  ,LI  STL,  l VAl,  101  R, 

1 NPI VCT, IP  TYPE ,RCOST, IFEAS, I PART (122), INCUM6( 1221  , 

2 I VB  N0( 500  I , I V l 0 1 500)  ,10BN0(500) 

COMMON  £,XLB( 122) , XUB ( 122 1 , B ( 60 1 , X( 60) , Y(60) , YTE MP ( 60 1 , OSUM, OPRUU, 

1 UY.GE.OP, A,  l CNAM ( 122,2) .NAME (2  0) ,NTEMP( 20  ) , SUM  I NF  , MST  AT, 

2 1UBJ,  IRGWP,  IVIN, I VOUT, ITCNT,  IN VFRQ , I TRFRO , I TS I NV , IFFE 2 , 

3 JCQLP,NRU«,NCUL,NELEM,NETA,NLELEM,NLETA,NUELEM,NUETA, 

4 It l 1000), i A ( 500) ,LE(252) ,L A( 122) , K I NB AS( 1 22 ) , JH ( oO) 

L I STL  * 0 

INCVAL  = INITBO 
C TEST  FOR  FATHOMING 

ICC  CALL  TESTX 

IF  (MSTAT  .to.  08L  ) GO  TO  200 

C CURRENT  NODE  FA  T HOMED « BACKTRACK  TO  LAST  PROMISING  NUDE  ON  LIST 

15C  CALL  BKTRAK 

C IF  LISI  IS  EMPTY,  RETURN  TO  MAIN  (COMPUTATIONS  COMPLETED) 

IF  (LISTL  .EC.  0)  RETURN 

c use  primal-simplex  method  for  reoptimization  at  new  node 

CALL  NORMAL 

GO  TO  100 

C CURRENT  NODE  NUT  FATHOMED  J COMPUTE  PENALTIES 

C BRANCHING  AT  CURRENT  NODE  IS  DONE  FROM  SUBROUTINE  PENLTS. 

2CC  CALL  PENLTS 

IF  (ICIR)  400 , 15  G, 4C0 
C 

C RElNVtRT  CURRENT  BASIS 

ICCC  CALC  INVERT 
ITSINV  = 0 

c 
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146*. 

1465. 

1466. 

1467. 
1468  • 

1469. 

1470. 
1471  . 

1472. 

1473. 

1474. 

1475. 

1476. 

1477. 

1478. 

1479. 

1480. 
1481- 

1482. 

1483. 

1484. 

1485. 

1486. 

1487. 

1488. 
1469. 
1490. 
1491  . 

1492. 

1493. 
1494  . 

1495. 

1496. 

1497. 

1498. 

1499. 

1500. 

1501. 
1502  . 
1503. 
1 504. 

1505. 

1506. 

1507. 
15C8. 
1 509  . 

1510. 

1511. 

1512. 

1513. 

1514. 

1515. 

1516. 

1517. 

1518. 
1619. 

1520. 

1521. 

1522. 

1523. 

1524. 


C 

C 

C 


C 


c 

c 


c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 


c 

c 


DUAL  SIMPLEX  CYCLE 

CHCCSt  PIVCT  ROW  IROWP 
3CC  CALI  CCHUZR 

If  URGwP  .GT.  0)  GO  TO  400 
MSTAT  = UBL 
GC  T0  100 

CHCOSE  PIVOT  COLUMN  JCOLP 
4 CC  CALL  CCHUZC 

IF  (JCOLP  .EG.  01  GC  TU  150 
IVIN  = JCOLP 

UPOATfc  RIGHT-HAND  SIDES  TU  REFLECT  NEW  BASIS  RESULTING  FROM 
CURRENT  SIMPLEX  PIVOT 
CALL  LPBETA 
ITCNT  = ITCNT  ♦ 1 
ITSINV  = ITSiNV  ♦ 1 

CEC  IDE  WHETHER  TC  REINVERT  CURRENT  BASIS 
IF  ((NELLrt  .GT.  56CC1  .OR.  (ITSINV  .GE.  INVFRQ1J  GO  TO  1000 
RE  INVER S ION  NOT  NECESSARY  YET;  WRITE  OUT  NEW  ETA-VECTOR  FOR 
CURRENT  SIMPLEX  PIVOT 
CALL  wRETA 
GC  TC  300 
ENO 

SU6R0LTINE  CCHUzR 

SELECTS  PIVCT  ROW  1RGNP  FOR  CURRENT  DUAL-SIMPLEX  ITERATION. 
SETS  IRUWP  = 0 IF  CURRENT  BASIS  IS  OPTIMAL.  OTHER  W I SE  » I ROWP 
IS  CHOSEN  TO  BE  THE  ROW  WITH  GREATEST  PR  I MAL- INFE AS  IB  IH T Y 

IMPLICIT  REAL *4  IA,C,E-H,0,P,R-W,Z)  , REAL*  8 (B,D,X,Y), 

1 INTEGER  *4  U-N.Q) 

I NTEG ER*2  JH, MhBAS,LA,LE,  IA,  It 
I NTEGER*2  I PART, INCOMB, I VBNO , 1 V 10 , 1 CBNO 
00U3LE  PRECISION  E(IOOO) 

REAL  A ( 500 1 

COMMON/BlUCn/  ZTQL  ZE.ZTOLPV.ZTCOST, ZTOLRJ, ZTCLSM , QRO , QMA , Q6A ,QFl  , 

1 CEO, C8L.UA ,OPL, UMl, UZ ,U l , QF, UN , CU, NRMAX , NEMAX, OB, UC 

2 Ufc ,U  h ,0L , UO, UR , wM ,UG, NT  MAX 

COMMON/BLOCK2/  OFP ART ( 122 ) , RE VBND  , 1 NC VAL , I COL, LI  STL, I VAL.IOI R, 

1 NPI VOT.IPTYPE.RCCST, IFEAS, I PART (122),  INCUMB(1221, 

2 I VB NO l 500!,IV10(500)  ,I0BN0(500J 

COMMON  E, XLe( 122 ) , XU8li22)»8(6G),X( 60 1 , Y I 6 0)  , YTE MP ( 60 ) .OSUM.OPROO 

1 OY.UE.UP, A,  ICNAMI  122 , 2 1 , NAME (2  0 J , NT EM P ( 20 1 , SOM  INF , MST AT , 

2 lOBJ.IROwP,  IVIN, l VOOT , ITCNT,  IN VFRO , 1 T RFRQ , l TS I NV , IFFE l , 

3 JCULP.NROw, NCOL, NELEM.NET A .NLELEM , NLE TA.NUELEM , NUETA , 

4 IE ( 10001,  I A ( 500) ,LE (252) ,L A ( 122 ) , K I NB AS  1 1 22 ) , JH (60) 

CHOOSE  ROW  WITH  GREATEST  INFE AS  I B I L I TY 

IROWP  = 0 

OP  = -1.E10 

00  10C0  1=  1 ,NROw 

IF  (I  -EU-  iOBJ)  GC  TO  1000 

ICOL  - JH ( 1 1 

IF  (XU)  .LT.  (XLB(ICCC)  - ZTOLZE))  GO  TO  100 
IF  (XU)  .GT.  (XUB1IC0L1  ♦ ZTOL  ZE ) ) GO  TO  200 
GO  TO  1000 

BASIC  VARIABLE  CN  ROW  1 FALLS  BELOW  ITS  LOWER  BOUND 
ICO  0£  * XIB(  ICOL)  - X(I) 

IF  (OE  -Lfc.  OP)  GO  TO  1000 
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— 5"” 


1525. 

1526. 

1527. 

1528. 

1529. 
15  30. 
1531  . 

1532. 

1533. 

1534. 

1535. 

1536. 

1537. 

1538. 

1539. 

1540. 
1541  . 

1542. 

1543. 

1544. 

1545. 

1546. 

1547. 

1548. 

1549. 

1550. 

1551. 

1552. 

1553. 

1554. 
1555  . 

1556. 

1557. 
1553. 

1559. 

1560. 
1561  . 

1562. 

1563. 

1564. 

1565. 

1566. 
156  7. 
1563. 

1569. 

1570. 
1571  . 

1572. 

1573. 

1574. 
1 575  . 

1578. 
1577. 

1579. 

1579. 

1580. 

1581. 

1582. 

1583. 

1584. 

1585. 


IPTYPE  = 0 
GO  TO  250 
C 

C 8ASIC  VARIABLE  ON  ROW  I EXCEEDS  ITS  UPPER  BOUND 

2CC  OE  = Xil)  - XU8(  ICO.) 

IP  IDE  .IE . DP)  GO  TO  1000 
IPTYPE  = -1 

C 


25C  I ROUP  = I 
10CC  CONTINUE 
RETURN 
END 

SUBROUTINE  0CHU2C 
C 

C SELECTS  PIVOT  COLUMN  JCOUP  FOR  CURRENT  DUAL-SIMPLEX  ITERATION. 

C SETS  JCOLP  = 0 IF  LP-PR08LEM  AT  CURRENT  NODE  IS  INFEASIBLE. 

C OTHERWISE,  CHOOSES  JCOLP  TO  MAINTAIN  PRIMAL-OPTIMALITY 

C 


c 


c 

c 

c 


IMPLICIT  REAL*4  ( A ,C ,E-H , 0, P , R-w , 2)  , REAl*8  (9,D,X,Y), 

1 INTEGER*4  U-N.Q) 

I NT  EGER*2  JH.MNBA  S,LA,LE  , IA,  IE 
I NTEG  Efi*2  1PART,  INCUMB, I VBNO, IVIO.ICBND 
DOUBLE  PRECISION  £ £ 10001 
REAL  A ( 500 1 

COMMON/BLOCK/  ZtOL ZE, ZTQLPV, ZTCOST, ZTGLRJ , ZTOLSM , QRO,  UMA , QBA ,QF  I , 

1 uEU , CBL , JA ,QPL , UM  l , U2 , 01  , UF  , QN  ,0U, NRMAX .NEMAX , OB, OC, 

2 OE ,0H , vL, 00 , OR , OM ,QG, NTMAX 

COMMCN/BlGCK.2/  UFP  ART  (12  2)  , RE  VBNO , I NO  VAL  , 1 COL,  LI  STL,  I VAL,  ID1R, 

1 NPI VOT, IPTYPE, NCOS T,  IF EA S, 1 PA RT ( 1 22 1 , I NCUMB < 1 22 1 , 

2 I VBNOi 500 ) , I V 1 D ( 500)  t IOBND ( 500) 

COMMON  E , XLB ( 122  I , XUB1 122 ) ,6 1 60 ) , X( 60 ) , Y ( 6 0)  , YTE MP ( 60  > ,DSUM, OPROO, 

1 OY.DE.DP, A,  ICNAMI  122,2) .NAME (20) ,N TEMPI  20 ) , SUM  I NF , MST AT, 

2 IGBJ.IRGWP, IVIN, I VOUT, I TON  T , INVFRQ,  I T RFRO , I TS I NV , IFFE  2, 

3 JCOLP, NROW, NCCL.NELEM, NE T A , NLELEM, NLE TA .NUELEM , NUETA , 

4 ifcl  1000),  IA(500’/,LE(252)  ,LA(  122)  ,KINBAS(122),JH(60) 

JCOLP  = 0 

IF  (IPTYPE  .EQ.  -1)  GO  TO  1000 

LEAVING  VARIABLE  FALLS  BELOW  ITS  LOWER  BOUND 

OP  = -I.E10 
00  50 C J’i.NCOL 

IF  IKINBAS(J)  .GT.  0)  GO  TO  500 

IF  ((XUB(J)  - XLB(J))  .LE.  ZTULZE)  GO  TO  500 

CALL  LNPAUMJ) 

CALL  F TRAN ( 1 ) 

IF  ( K I NBAS ( J ) .EO.  -1)  GO  TO  200 
IF  (YURGWPJ  ♦ ZTUlPV)  225,226,500 
2CC  IF  ( Y ( IROwP ) - ZTULPV)  80u,z25,225 


r 


225  OE  = Y( IOBJ)/Y( IROWP) 

IF  (OE  - OP)  500,500,250 
25C  JCOLP  * J 

op  = ce 

5CC  CCNTINUt 


IF  (JCOLP  .E(J.  0)  RETURN 
CALL  UNPACK ( JCOLP ) 

CALL  f TRAN ( 1 ) 

ICOL  * JH(  IROwP) 
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1586. 
158?. 
1588  . 

1589. 

1590. 
1591  . 
I 59a. 

1593. 

1594. 

1595. 

1596. 
159?. 

1598. 

1599. 

1600. 
1601  . 
1602  - 
1603. 
!cC4. 
16C5. 
1606. 
160?. 
1 6C8  . 
16C9  . 
1610. 
1611  . 
1612. 
1613  . 

1614. 

1615. 

1616. 

1617. 

1618. 
16  19  . 
1620. 
162l  . 
1622. 

1623. 

1624. 

1625. 

1626. 
1627  . 
1628. 

1629. 

1630. 

1631  . 

1632  . 
16  33. 
16  34. 

1635. 

1636. 
163?. 

1638. 

1639. 

1640. 

1641. 

1642. 
1643  . 

1644. 

1645. 

1646. 


OP  = (XlIRCwP)  - XLBt ICOL) )/Y ( I ROKP 1 
GO  TO  2000 

LEAVING  VARIABLE  EXCEEDS  ITS  UPPER  BOUND 

10CC  OP  = l.fclO 

00  1 5 CO  J = 1 ,NCOl 

IF  ( K INBA  S < J 1 .GT.  0)  GO  TO  150C 

IF  l ( XLh ( j 1 - XLB(J))  .LE.  ZTOlZE)  GO  TO  1500 

CALL  LNPACKIJl 

CALL  F TRAN  1 1 1 

IF  (KINBAS(J)  .EQ.  -i)  GO  TO  1200 
IF  (Y(IROWP)  - ZTOLPV)  1 500, 1 22 5, 12 25 
12CC  IF  lYURQwP)  * ZTOLPV)  1225,  122  5,1500 

1225  OE  = YUOBJl/YURQhP) 

IF  (DE  - OP)  1250, 1500, 1500 
125C  JCOLP  = J 
DP  = CE 
1 5 CO  CONTINUE 

IF  ( JCCLP  .£0.  0)  RETURN 
CALL  LNPACM  JCOLP) 

CALL  FTRAM1) 

ICCL  = JHiiROwP) 

OP  = (XURUWP)  - XU8(  IC'JL  ) 1 / Y < 1 ROloP  ) 

2000  IF  (K1N8ASI JCOLP)  .60.  Ol  OE  = OP  ♦ XL8 ( JCOLP) 

IF  (K  INBAS1 JCOLP 1 .Eg.  -1)  OE  = OP  * XUB(JCOLP) 

NP1VGT  = 1 

RETURN 

END 

SUBROUTINE  TtSTX 

TESTS  LP-OPTIMAL  SOLUTION  AT  CURRENT  NOOE  FOR  FATHOMING. 
FATHOMING  OCCURS  IF 

ID  LP  PROBLEM  AT  CURRENT  NOOE  IS  INFEASIBLE  (MSTAT  = QN)  ; OR 

1 2 ) lp-optimal  objective  value  iivad  .le.  objective  value  of 

CURRENT  INCUMBENT  SULUTIGN  ( 1NCVAL)  ; OR 
(3)  LP-OPTIMAL  SOLUTION  SAT1SPIES  INTEGER  RESTRICTIONS. 

IMPLICIT  REAL*4  l A ,C,E-H,0,P,R-K, Z)  , RE AL*8  IB,D,X,Y), 
l INTEGER**  (1-N,U1 

1NT  EGER*2  jH,MNBAS,i.A,LE,IA,IE 
I N T EG  ER*2  I PAR  T,  IN COMB, IVBNO, I V 10, ICBNO 
OCUBLE  PRECISION  FIlOOO) 

PEAL  A ( 500 ) 

common /block/  zrot.  ze.ztolpv.ztccst,  ztolrj  , ztolsm  , qro,  qma.qba  ,qf  i , 

1 QEO,  OBL.UA ,QPL ,OMI,GZ , 0 1 ,QF , QN , OU, NRMAX ,NEMAx, OB.QC, 

2 QE  ,0  h ,0L  * 00 , CR,  QM  , CG,  NiTMAX 

CCMMGN/BL0CK2/  UPP  ART (12 2) , RE VBNO , I NCVAL , I COL, LI  STL,  l VAL , 1 01  R, 

1 NPI VQT, IP  TYPE ,RCOST,  IFEA S, l PART ( 1 22 ) , l NCUMB1 122) , 

2 l VBNO l 500) , 1VI01 500) ,I08NO(500) 

COMMON  t.XLBl  122  1 , XOt>(  l22l,B(6U),Xlfc0).Y(6  0)  ,YTEMP  (601,0  SUM,  DPROD, 

1 OY,Ot»UP,A,  1 CN AM ( 122,2) , NAME120) ,NT6MP( 20 1 .SUM  INF  .MSTAT, 

2 IuBJ.IRCwP,  tViN.l vJUT.ITCNT,  INvFRO,  I T RFRO , I TS I NV , IFPEZ, 

3 JCOLP , NRu  M, NCOL , Nt LEM , NE TA  ,NLELEM,NLE TA , NUE LEM , NUET A , 

4 I fc I 1000).  7 A (500) , EE (252) ,L A( I22i , K INS AS<1 22 ) , JH(60) 

op  = x i lotu  i ♦ i roLze 

1VAL  * (OiNT(OP) 

IF  (OP  .LT.  0.)  (V*L  » 1 V AL  - 1 


1647. 

1648. 

1649. 

1650. 

1651  . 

1652  . 

1653. 

1654. 

1655. 

1656. 
1652. 

1658. 

1659. 

1660. 
1661. 
1662. 

1663. 

1664. 

1665. 
16  66. 
1667. 
1663. 
1669. 
16  70. 
1671  . 

1672. 

1673. 

1674. 

1675. 
1676  . 
1677. 
1678  . 

1679. 

1680. 
168!  . 
1682. 

1683. 

1684. 

1685. 

1686. 
I 6o  7 . 
1683. 

1689. 

1690. 

1691  . 

1692  . 

1693. 

1694. 

1695  . 

1696  . 

1697. 

1698. 

1699. 

1700. 
1701  . 
1702. 
I 7C3  . 
1 7C4  . 
1705. 
1 706. 
I 7C7  . 


IF  ( ( MSTAT  .til.  ON  1 .OR.  ( 1 VAL  .Lfc.  INCVALI)  00  TO  2000 
C 

C COMPUTE  INTEGER  AND  FRACTIONAL  PARTS  OF  EACH  BASIC  VAR. 

C 

00  IOC  I - l » NR OR 

IPART(l)  = IDINT(XII)  » 2TQL/.EI 
N TEMP  « i 1 = IPART (I  I 
ICC  JEPART (I  1 = XII)  - FLOAT (NTEMP(  1 i 1 
C 

C CHECK  FOR  ALL-INTEGER  SCLOT  ION 

C 

00  20C  I - 1 , NKOw 
IF  IJHI)  .LE.  NROW ) GO  TG  200 
IF  (OF PART  1 1 ) .GE.  6TUl2  1 1 RETURN 
2CC  CCNT1KLE 
C 

C SOLUTION  ALL-INTEGER:  INSTALL  AS  NEW  INCUMBENT 

C 

IFEAS  = 1 
INCVAL  = 1VAL 

00  10CC  J= 1 »NCGL 

IF  (K  INBAS (JJ  1600.  700. 1000 
6CC  INCUMBCJl  = I UIN  T ( XUB ( J J 1 
GO  TO  1000 

7 CC  INCliMe(J)  = IOINT  ( XLBI J ) 1 
1CCC  CONTINUE 

C 

DC  HOC  I = l tNRCW 
ICOl.  = JHI  I J 
INCUMeilCOL)  = I PAR  T ( I ) 

UCC  CCNTIKUE 

c 

C CURRENT  PROBLEM  NO  LONGER  OF  INTEREST 

C 4 

20CC  MSTAT  = yi 
RETURN 
END 

SUBROUTINE  PENLTS 
C 

C COMPUTES  TOMLIN'S  IMPROVED  UP-  ANO  OCwN-P ENAL T I ES  AND  THE 

C GCK.RY  PtNALTV  FOR  EACH  NGN  I NT  EGER  BASIC  VARIABLE.  A1S0  CHECKS 

C FOR  FORCED  BRANCHES  ON  BOTm  BASIC  ANO  NGNRASIC  VARIABLES.  IN 

C THE  ABSENCE  OF  FCftCEU  BRANCHES  ON  BASIC  \TaRIaBLES,  THE 

C BRANCHING  vARIABLc  IS  CrtQxEN  Tc  BE  THE  ONE  WITH  LARGEST 

C ASSOCIATED  UP-  CR  DUWN-PENAl T Y . THE  FORWARD  BRANCH  IS  MAOE  IN 

C The  ul RECTI LN  OPPOSITE  to  the  MAXIMUM  PENALTY.  THE  NODE 

CORRESPONDING  TC  THE  dRANCH  IN  THE  SAME  DIRECTION  AS  THE 
C MAXIMUM  PENALTY  IS  ADDED  TO  ThE  LIST,  TO  BE  EXAMINED  LATER. 

C THE  BRANCHING  PROCESS  ITSELF  IS  CARR  I EO  OUT  IN  SUBROUTINE 

C eRANCH,  WHICH  IS  CALLEU  FROM  SUBROUTINE  PENLTS. 

C 

IMPLICIT  R £ AL*4  ( A , C , E -H , 0, P , R- W, 1 1 , RE  AL*  8 <8,0,X,YJ, 

1 INTEGER  *4  (I--N.QJ  * 

1 NT  EG  ER*2  JH,MNBA  S.LA.LE  , IA,  It 
1NTEGER*2  IPARI,  INCuMB,  I VBNU, I V 10,1 CBND 
OOUBLE  precision  eiiooui 

REAL  A ( 500 1 

REAL  PUI601  ,P0(6U)  ,PG(601 

COMMCK/ BLOCK/  /TOC  2E,/TULPV,2TCCST, 2TOLRJ.2TOL SM.QRO.QMA.OBA ,QF 1 , 

1 yEO.UBL.UA ,UPL, UMl.CZ  ,QI , OF , ON , QU, NR MAX, NEM AX, OB, 00* 

2 UE , 0 F , UL , OU , OR , OM , OG , NT M A X 
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— *v^7 

- -c.  ■.  f._.  r. 


* ” 


A-.  ,*-  'wi  ^ 


I 


I 


1708. 

CGMMCN/BLUCK2/  01-P  ART ( 122 ) ,RE  VBNO  , I NCV AL,  I COL,  L I STL,  I VAL  , 101  R, 

1709. 

1 

NPI  VGT,IPTYPE,RCG$T,IFEAS,lPARTd22),lNCUM8(122), 

1710. 

2 

1 V8N0(500) >1 VI  D( 500) ,I08N0( 500) 

1711. 

COMMON  E. XL  8(122) , XUB( 122 ) ,8 ( 60 ) , XI 601 , Y (601 , YTE HP (60 ) , DSUN, OPROO 

1712. 

1 

OY . OE , OP. A. I CNAM ( 122 , 2 ) . NAME (20) .NTEMPt  20 ) , SUM  I NF , MST  AT, 

1713. 

2 

IOBJ.IRCWP,  IVIN, I VOJT.ITCNT,  INVFRO, ITRFRQ, ITSINV, IFFEZ, 

1714. 

3 

JCOLP ,NROW, NCUL • NELEM, NE  TA  .NLELEM , NLETA , NJELEM . NUET A, 

1715. 

4 

IE (1000), I A (500) ,LE(252) ,L A( 122) , KINS AS ( 1 22 ) , JH(60> 

1716. 

00 

10  1=1 , NROri 

1717. 

IF 

(DFPART ( I ) .LT.  ZT0L2E)  GO  TO  5 

1718. 

PU(  I)  = 1 . fc6 

1719. 

POU)  = 1.E6 

1720. 

OCU)  = I.E6 

1721  . 

GC 

TO  10 

1722. 

5 PU(  I)  = 0. 

1723. 

PDII)  = 0. 

1724. 

PGU)  = 0. 

1725. 

10  CONTINUE 

1726. 

C 

1727. 

00 

10CC  J=1,NC0L 

1728. 

IF 

(KINBAS1J)  ,GT.  0)  GO  TO  1000 

1729. 

IF 

((XUB(J)  - XLb(JJ)  .LE.  2TOL2E)  GO  TO  1000 

1730. 

CALL  UNPACK ( J ) 

1731. 

CALL  FTRANU) 

1732. 

IF 

(K  INBAS ( J)  ,EQ.  0)  GO  TO  30 

1733. 

00 

20  I=1.NR0H 

1734. 

2C  Y ( I 1 * -YU) 

1735. 

c 

1736. 

c 

CHECK  FOR  FORCED  BRANCH  ON  XJ 

1737. 

3C  IF 

(J  .LE.  NRQW)  GC  TO  50 

1738. 

OP 

= X(IUbJ)  - YUOBJ)  ♦ 2T0L2E 

1739. 

I VAL  = I 01  NT (OP) 

1740. 

IF 

(DP  .LT.  0.)  1 V AL  = I VAL  - 1 

1741. 

IF 

UVAL  .GT.  INCVAL)  GO  TO  50 

1742. 

10 1 R = 2*  K I NBA  St J)  ♦ l 

1743. 

IF 

(ICIR  .tO.  -1)  REVBND  = SNGL(XUBU)) 

1744. 

IF 

( I C IR  .EQ.  1)  REVBND  = SNGL(XLB(J)) 

1745. 

ICOL  = J 

1746. 

CALL  eRANCH 

1747. 

GO 

TO  1000 

1748. 

c 

1 

1749. 

5C  OC 

50C  I=1,NR0R 

1750. 

IF 

1 JF ( 1 ) .LE.  NROk)  GO  TO  500 

1751. 

IF 

(DFPART ( I ) .LT.  2TOL2E)  GO  TO  500 

1752. 

c 

1753. 

c 

COMPUTE  UP  PENALTY  FOR  X(I),  XJ 

17  54. 

ICO  IF 

(Y(I)  .GT.  -2T0LPV)  GO  TO  200 

1755. 

DE 

* Y(IOBJ)*(DFPAFT(I)  - l.l/Yd) 

1756. 

IF 

IDE  .LT.  Y(IOBJ))  DE  = YUOBJ) 

1757. 

IF 

(OE  .LT.  PU(I  )l  PUd)  “ OE 

1758. 

GO 

TO  300 

1759. 

c 

1760. 

c 

COMPUTE  DORN  PENALTY  FOR  X(I),  XJ 

1761. 

2CC  IF 

(Yd)  .LT.  ZTuLPV)  GO  TO  300 

1762. 

OE 

= Y ( IOBJ )*DFPAR  T ( I )/Y ( 1 1 

1763. 

IF 

IDE  .lT.  V(IOBJ))  OE  = YUOBJ) 

1764. 

IF 

(OE  .LT.  PO(I ))  P0(1)  * OE 

1765. 

c 

1766. 

c 

COMPUTE  GOMORY  PENALTY  FOR  X(I),  XJ 

1767. 

3C0  OP 

= CABS ( Y ( I ) ) 

1763. 

NTEMP(l)  * 10 1 NT (0 P 1 
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DC 

IX 

H 


1769. 

OP  * CP  - FLOAT! NT EMPd  1 1 

1770. 

IF  ((DP  .LE.  ZTOLZEl  .OR.  (OP  .GE.  1.-ZT0LZE11 

1771. 

IF  (Ydl  .LT.  0.1  OP  * l.  — DP 

1772. 

IF  (OP  .GT.  OFPART  (111  GO  TO  310 

1773. 

DE  » Y(  IOB J1 *DFP  ARTdl/QP 

177*. 

GO  TO  320 

1775. 

3 1C 

DE  » V ( IOB J 1*( 1.  - DEPART (111/(1.  - OP! 

1776. 

32C 

IF  (DE  .LT.  PGdll  PG(  1 1 = DE 

1777. 

C 

1778. 

5CC 

CONTINUE 

1779. 

10C0 

CONTINUE 

1780. 

C 

1781. 

C 

COMPUTE  LARGEST  GONORY  PENALTY  ANO  TEST 

1782. 

PEN  = 0. 

1783. 

00  20C0  WtNRCM 

1784. 

IF  (JMI1  .LE.  NR0W1  GO  TO  2000 

1785. 

IF  (PGdi  .GT.  PEN!  PEN  * PG(  1 1 

1786. 

20CC 

CONTINUE 

1787. 

DP  = XII0BJ1  - PEN  ♦ ZTOLZE 

1788. 

I VAL  = ID I NT (DPI 

1789. 

IF  (OP  .LT.  O.i  IV AL  * I VAL  - 1 

1790. 

IF  (I VAL  .GT.  INCVALi  GO  TO  3000 

GO  TO  $00 


1791 . 

1792. 

1793. 

1794. 

1795. 

1796. 

1797. 

1798. 

1799. 

1800. 
1801. 
1802. 

1803. 

1804. 

1805. 

1806. 

1807. 

1808. 

1809. 

1810. 
1811. 
1812. 

1813. 

1814. 

1815. 

1816. 

1817. 

1818. 

1819. 

1820. 
1821. 
1822. 

1823. 

1824. 

1825. 

1826. 

1827. 

1828. 
1829. 


IDIR  » o 
RETURN 

C 

: PROBLEM  NOT  FATHOMED:  CHECK  FOR  FORCED  BRANCHES  ON  X(I) 

30C0  NTEMP (21  » 0 

DO  39C0  1=1 ,NRCM 
IF  IJhlll  .LE.  NROW1  GO  TO  3900 
IF  (PUD  .GT.  P0(ID  GO  TO  3600 
OP  =>  XdOBJl  - PO(ll  ♦ ZTltLZE 
NTEMP (11  = 10INT (DPI 

IF  (OP  .LT.  0.1  NTEMPU1  » NTEMPdl  - 1 
IF  (NTEMPdl  .GT.  INCVAL1  GO  TO  3900 
i FORCED  BRANCH  UP  ON  X(I) 

I VAL  » NTEMPdl 
IDIR  * -1 

NTEMPdl  a IPART  (I  1 ♦ 1 
GO  TO  3700 

36CC  DP  ■ XII08J1  - PU(I1  ♦ 2TOL2E 
NTEMPdl  = IOINT  (DPI 

IF  (OP  .LT.  0.1  NTEMPdl  « NTEMPdl  - 1 
IF  (NTEMPdl  .GT.  INC  VAL  1 GO  TO  3900 
: FORCED  BRANCH  DOWN  ON  Xdl 

I VAL  * NTEMPdl 
IDIR  - 1 

NTEMPdl  * IPART  ( I 1 
37CC  IROWP  » I 

ICOL  * JH ( IROWP! 

REVBNC  = FLOAT  (NTEMPdl  1 
NTEMP (21  « 1 
CALL  eRANCH 
39CC  CCNTINLE 

IF  (N TEMP (21  .GT.  C!  GO  TO  5000 

: NO  FORCED  BRANCHES:  CHOOSE  BRANCHING  VAR.  AND  DIRECTION 

PEN  - 0. 

IROWP  « 0 

DETERMINE  BASIC  VAR.  XdROWPI  WITH  MAX.  UP-  OR  DOWN-PENALTY 
00  49C0  IM.NKOW 


- 
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'jr'- 


SBKJE  ~ 


1830. 

1831. 

1832. 

1833. 

1834. 

1835. 

1836. 

1837. 

1838. 

1839. 
1860. 

1841. 

1842. 

1843. 

1844. 
1045. 

1846. 

1847. 

1848. 

1849. 

1850. 

1851. 

1852. 

1853. 
ie54. 

1855. 

1856. 

1857. 

1858. 

1859. 

1860. 
1861. 
1862. 

1863. 

1864. 

1865. 

1866. 

1867. 

1868. 

1869. 

1870. 

1871. 

1872. 

1873. 

1874. 

1875. 

1876. 

1877. 

1878. 

1879. 

1880. 
1881. 
1882. 

1883. 

1884. 

1885. 

1886. 

1887. 

1888. 
1809. 
1890. 


NROW)  GO  TO  4900 
P0( 1)1  GO  TO  460C 
PEN)  GO  TO  4900 


46CC 


49C0 


4910 

4920 


.EG.  0.  (DUAL-DEGENERACY  ). 
AS  BRANCHING  VAR. 


CHOOSE 


IF  ( JM I J -LE. 

IF  (PMI)  .CT. 

IF  (PCII)  .LE. 

PEN  * POCI) 

IRQtaP  = l 
IOIR  ■ -1 

NTEMP(l)  = IPART ( I ) ♦ 1 
REV8NC  » FLOAT (NTE HP ( 1 ) ) 

GO  TO  4900 

IF  IPU(l)  .LE.  PEN)  GO  TO  4900 
PEN  = PUI1I 
I ROWP  = I 
IOIR  = 1 

NTEMP(l)  * IPART I I ) 

REVBNC  = FLOAT (NTE  API  1) ) 

CONTINUE 

IF  (I ROUP  .CT.  0)  GO  TO  4950 
EACH  UP-  AND  DOWN-PENALTY 
ANY  NON 1NTEGE  tt  BASIC  VAR. 

DO  4910  IR0mP*1.NRG* 

IF  ( JF ( IROWP ) .LE.  NROM)  GO  TO  4910 
IF  ( OFPART ( IROHP ) .GE.  ZTOLZE ) GO  TO  4920 
CONTINUE 
PEN  = PUtlRCNP) 

IOIR  = 1 

NTEHP(l)  * IPART (I  ROMP ) 

REVBNC  = FLOAT (NTEMPll)) 

49 5 C ICOL  * JHI IROMP) 

OP  = X(IOBJ)  - PEN  + ZTOLZE 
NTEMPll)  » IDINTIDP) 

IF  IDP  .LT.  0.)  NTEMPll)  « NTEMPll)  - 1 
IF  ( I VAL  .GT.  NTEMPll))  IVAL  * NTEMPll) 

C BRANCH  ON  CHOSEN  VAR. 

CALL  ERANCH 

50CC  IF  (ICIR  .EG.  -1)  IPTYPE  * 0 
IF  ( I C IR  .EQ.  1)  IPTYPE  * -1 
RETURN 
ENO 

SUBROUTINE  BRANCH 

C 

: BRANCHES  ON  VARIABLE  XI ICOL)  AS  DETERMINED  IN  SUBROUTINE  PENL  TS 

IMPLICIT  REAL*4  (A ,C ,E-H , C, P , R-h, Z) , REAL* 8 (B,D,X,YI, 

1 INTEGER *4  (I-N.Q) 

INTEGERS  JH,KINBAS,LA,LE*IA,  IE 
I NTEGER*2  IPART, INCUMB, I VBNO , I V ID ,1 OBNO 
DOUBLE  PRECISION  El  1000) 

REAL  A (500) 

COMMCN/BLUCK/  ZTOLZE,ZTOLPV,ZTCOST,ZTOLRJ, ZTOLSM , GRO , QMA ,0BA ,QF I , 

1 QEO, C8L,UA ,QPL, QM I, QZ ,QI ,GF, QN ,QU, NRMAX ,NEMAX, QB,QC, 

2 QE ,GH,GL, 00,GR,QM,QGf NTMAX 

COMMON/ BL0CK2/  OFP ART ( 122 ) ,RE VBND, I NCVAL, ICOLt LI  STL. I VAL, 1DI R, 

1 N PI VOT, IPTYPE, RCOST,  IFEAS, I PART ( 1 22 ) , I NCUMBI 1 22) , 

2 I VB  ND( 500) ,IVID(500) ,IOBNO(5O0) 

COMMON  E,XLB(122),XUB(122),B(60),X(60),Y160) , YTEMPI60 ) ,DSUM, OPROD, 

1 DY , DE ,0P, A, 1CNAMI  12 2 , 2 ) , NAME (20) ,NTEMP( 20 ) , SUM  INF ,MST AT, 

2 IOBJ , IROWP, IVIN, I VOUT , I TCNT,  IN VFRQ , ITRFRQ , I TSI NV, IFFEZ, 

3 JCOLP.NROW, NCOL, NELEM, NETA  , NLELEM.NLE TA,NUELEM ,NUETA, 

4 IE  t 1000), IA (500) ,LE(2S2) ,LA( 122) .KINBASU 22 ) , JH(60) 

: ICOL  INOEXES  BRANCHING  VARIABLE  CHOSEN 
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c 

c 

c 


1 DIR  INDICATES  BRANCHING  DIRECTION  CHOSEN 


|| 

f 

\\ 

it 


I- 


i 


I 

■ 


CJ 

'X> 

0 

c 


1891. 

1892. 

1893. 
1896. 

1895. 

1896. 

1897. 

1898. 

1899. 

1900. 

1901. 

1902. 

1903. 
1906. 

1905. 

1906. 

1907. 

1908. 

1909. 

1910. 

1911. 

1912. 

1913. 
1916. 

1915. 

1916. 

1917. 

1918. 

1919. 

1920. 

1921. 

1922. 

1923. 
1926. 

1925. 

1926. 

1927. 

1928. 

1929. 
19  30. 

1931. 

1932. 

1933. 
1936. 

1935. 

1936. 

1937. 

1938. 

1939. 

1960. 

1961. 

1962. 

1963. 
1966. 


C 

C 

C 

c 

c 


C 


c 

c 


c 


ADD  OPPOSITE  DIRECTION  TO  CIST 
4. 1 STL  « L I STL  ♦ 1 

IF  I ICIR  .EQ.  -11  IVBNOILISTO  - ID  INTI XLB IICOL)  ♦ 2TOL2EI 
IF  (ICIR  .EQ.  11  IVBNOILISTO  ■ 1 01  NT (XUBI IC0L1  ♦ 2TOL2E) 
IVIC(LISTL)  * ID IR  * ICOL 
I OBNO ( LI  STL 1 » I VAL 

REVISE  BOUNDS  ON  BRANCHING  VARIABLE  FOR  FORWARD  DIRECTION 
IF  (ICIR  .EQ.  -11  XLB(ICOL)  « OBLE(REVBNO) 

IF  (ICIR  .EQ.  11  XUB(ICOL)  « DBLE (REVBND) 

RETURN 

END 

SUBROLTINE  BKTRAK 

BACKTRACKS  TO  SELECT  A PROMISING  ( UNF ATHOMEOl  NODE  FROM  THE 
LIST  OF  STOREO  NODES.  LAST-  IN-F IRST-OUT  (LIFO!  SELECTION  RULE 
IS  EMPLOYED. 

IMPLICIT  RE AL*6  (A ,C,E-H,G,P,R-W, 21 , REAL*8  (B.O.X.Yi, 

1 INTEGER *6  (I-NtQ) 

l NT  EG  ER*2  JH.K 1NBA S.LA.LE . I A. IE 
INTEGER*2  IPART, INC0M8, I VBNO, I VIO ,1 CBNO 
DOUBLE  PRECISION  E (10001 
REAL  A( 5001 

COMMON/BLOCK/  ZTOL 2E.2TOLPV, 2TC0ST, 2T0LRJ . 2T0LSM , QRO, QMA.QBA ,QF I , 

1 GEO, CBL.QA, QPL, QM I, Q2 ,Q I , QF, QN ,QU, NRMAX , NEMAX, QB.QC, 

2 QE ,Qh,QL,QO,QR,QM,QG,NTMAX 

CCMMON/BLOCK2/  DFP ART (1221 .RE VBNO , I NC VAL, ICOL, LI  STL, I VAL, IDI R, 

1 NPI VCT, IP  TYPE , RCOST , IFEAS, I PART ( 122 ),  I NCUMB( 1221 , 

2 I VB  N0( 5001 ,IVI0(5001  ,I0BND(500! 

CCMMON  E,XLB(1221,  XUBU22) , B ( 60 1 , X(  60 1 , Y( 601  , YTE MP(60 1 ,OSUH,  OPROO, 

1 DY ,0E ,DP, A, ICNAM(  122,2 1 , NAME (201 , NTEMP( 20 ) ,SUN INF ,MST AT, 

2 1 OB J , IROWP, I VIN , I VOUT , 1TCNT,  INVFRQ, ITRFRQ , I TS I NV , IFFE2, 

3 JCOLP.NROW, NCOL, NELEM.NETA.NLE LEM, NLE  TA.NUELEM , NUETA, 

6 IE ( 10001, IA (5001 , LE( 2 521  ,LA( 1221 ,KINB AS( 1 22 1 , JH1601 

NTEMP (3 ) = 0 

IF  LIST  IS  EMPTY,  RETURN  (COMPUTATIONS  COMPLETED! 

50  IF  (LISTL  .EG.  0)  RETURN 

IF  ( I CBNO  (LISTL!  .LE.  INCVAL1  GO  TO  2000 

GET  NEXT  NODE  FROM  LIST 
ICOL  = IVIC(LISTL) 

IF  (ICOL  .LT.  01  GG  TO  100 

NTEMP ( 11  * IDINT (XLB( IC0L1  ♦ 2TGL2E1 
NTEMP (21  « I VBNDIL  ISTL 1 
XLB ( ICCL 1 * XUB( ICGL1  ♦ 1. 

XU8 ( I COL  1 * FLOAT( NTEMP(21 1 
IF  (KINBASI IC0L1  .GT.  01  GO  TO  1000 
KINBASI IC0L1  * 0 
NTEMP (3)  = 1 
GO  TC  1000 


1965. 

C 

1966. 

ICO  ICOL  » -ICOL 

1967. 

NTEMP!  11  * IDINT 1 XUB( ICOL 1 ♦ 

2T0LZE1 

1968. 

NTEMP (21  = I VBNO ( L ISTL ) 

1969. 

XUBI  ICCL1  - XLB(  IC0L1  - 1. 

1950. 

XLB ( I C0L1  - FLOAT! N TEMPI 2) 1 

1951. 

IF  (KINBASI IC0L1  .GT.  0)  GO 

TQ  1000 

j 
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KINBASI ICOL ) » -1 
NTEMP (3)  * 1 

I VIOI L ISTL ) * -I  VI CILISTL) 

ivbnoilistd  - ntempid 
ICBNOILISTU  - -lOOOO 

UPDATE  X 

IF  IN TEMPI 31  . EQ.  C)  RETURN 
CALL  ShIFTR 1 1 >3) 

OC  9000  J*  1 tNCCL 

IF  I KINBASIJ) I 86  00,8700, 9000 

OE  - XUB(J) 

GO  TO  8750 
OE  = XLBIJ) 

LL  » LAI J ) 

KK  » LAIJ+l)  - 1 
00  88CC  I -LL ,KK 
IR  = I At  I ) 

YIIR)  = YIIR)  - At  I) POE 

CONTINUE 

CALL  FTRAN(l) 

CALL  SHIFTR!3,2) 

RETURN 


NOCE  FATHOMED:  UPOATE  VAR.  801 

ICOL  * IVICILISTL) 

IF  IICOL  .LT.  0)  GC  TO  2100 

NTEMPIli  = I V8N0IL  ISTL) 

IF  I K INBAS ( ICOL) ) 20 10 >2050>2050 
NTEMPI3)  = 1 

OP  = XUBt ICOL)  - X LSI ICOL ) 

OY  = FLOAT t NTEHP ( 1 ))  - XU8IIC0L) 

IF  (OP  .LT.  OY)  Kl NBAS! ICOL)  = 0 
XUBIICOL)  = FLOAT!  MEMPI  D) 

GO  TO  3000 

ICOL  * -ICOL 

NTEMP(l)  = IVBNOILISTL) 

IF  (K  INBAS!  ICOL))  2150, 2 1 10.2150 
NTEMPI3)  = 1 

OY  = XIB(ICOL)  - FLOAT (NTEMPI 1) ) 
OP  = XUBIICOL)  - X LSI ICOL) 

IF  (OP  .LT.  OY)  XI NBAS! ICOL ) - -1 
XLB(ICCL)  * FLOATINIEMPI 1)1 

LISTL  * L I STL  - 1 
GC  TO  50 


UPOATE  VAR.  BOUNDS  AND  BACKTRACK  AGAIN 


SUBROUTINE  ALOCTEI  IPAR.IRHS) 

SOLVES  MASTER  PROBLEM  (CONCAVE-SEPARABLE  INTEGER  PROGRAM); 
REALLOCATES  LINKING  RESOURCE  AMONG  UNFIXEO  SUBPROBLEMS 
►***DE SCRIPT  ION  OF  PARAMETERS******** 

IPAR  « PARAMETER  INDICATING  WHETHER  LAST  BRANCH  MAS  IN  FORWARD 
I1PAR  - 1)  OR  BACKTRACKING  OIRECTION  I IPAR  * 0). 

IRHS  * AMOUNT  OF  LINKING  RESOURCE  LEFT  (USED  WHEN  IPAR  « 1) 

I*****,************,******,*,******** 
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2013. 

2014. 

2015. 

2016. 
2C17  . 
2C18. 
2C19. 
2C20. 
2021. 
2C22  . 
2C23. 
2C24. 

2025. 

2026. 

2027. 

2028. 

2029. 

2030. 

2031. 

2032. 
2C33. 

2034. 

2035. 

2036. 

2037. 

2038. 

2039. 

2040. 

2041. 

2042. 

2043. 

2044. 
2C45  . 
2C46. 
2047. 
2C48. 

2049. 

2050. 

2051. 

2052. 
2C53. 

2054. 

2055. 

2056. 

2057. 

2058. 
2C59. 
2C60. 
2061  . 
2C62  . 
2C63. 
2C64. 

2065. 

2066. 

2067. 

2068. 
2C69. 

2070. 

2071. 

2072. 

2073. 


WHEN  IPAR  = 1,  MASTER  PROBLEM  REOPTIMIZED  BY  REALLOCATING  IRHS, 
STARTING  EROM  PREVIOUSLY  OPTIMAL  SOLUTION  TO  MASTER  PROBLEM. 
WHEN  IPAK  = Ot  MASTER  PROBLEM  RESOLVEO  FROM  SCRATCH  (I.E.,  ALL 
BIJ)  SET  TO  LOWER  BOUNDS  IBlB(J)  INITIALLY.) 

IMPLICIT  RE AL*4  ( A ,C,E-H ,0, P ,R- W, Z)  , RE AL*8  IB,0,X,Y), 

1 INTEGERS  (I-N.O) 

INTEGER*^  JH,KINBAS,LA,LE, IA, IE 
INTEGERS  I PAR  T , INCLMB  , I VBND , I V ID  .1  OBND 
INTEGERS  IZSTAk,! BIO, IBBN0» IZBND 
OOUBLE  PRECISICN  E 1 1000) 

REAL  A ( 500 ) 

CGM  MON /bi-OCK/  ZTOLZE.ZTOLPV.ZTCCST,  ZTOLRJ  • ZTOLSM  ,QRO,  UMA , QBA  ,QF  1 , 

1 GEO.CBL.QA  ,UPL,QMI,GZ,Ql,t)F,QN,QU,NRMAX,NEMAX.QB,QC, 

2 UE  «QH,QL, UU*QR  » UM  »QG»  NTMAX 

CGMMCN/BL0CK2/  DFP ART  1 122 ) ,RE VBND , I NCVAL , ICOL, L I STL, I VAl , 101 R, 

1 NPI VOT.IPTYPE.RCOST,  IFEASf I PART ( 1 22 ) 1 1 NCUMBI 122) > 

2 I VBNDI500 ) , IVIUI 500) ,IOBND(500) 

CCMMCN/BL0CK3/  RLA MDAI 50 , 1 0) , ZN AUT( 10) , ZJBAR 1 10)  ,NSUB S , I ZINC  , 

llZBAR.IOOM, IBLL.NJFIX.JFIXSM, IB.JFIXI 10) ,NSOLI 10 ) ,NLAMDA(10) . 
2KSEGI  10),  IBSTARI200.10)  , IBUBUO  )»  IBLB(IO),  IBP!  51  ,10), 

3 1 BU SEC (200, 10) , I ZS TAR  1200, 10) ,16101200) ,IBBN0(200) ,IZBN0(200) 
COMMCN  E,XL6(122), XUB 1122),B(fa0),X(60),Y(60) , YTEMPI60 ) ,USUM, OPROD, 

1 DY ,DE ,DP, A,  ICNAMI 122 ,2 ) , NAME (20) , NTEMPI 20 ) , SUM  INF ,MST AT, 

2 IOB J , IROMP, IVIN, I VOUT.ITCNT, INVFRQ, ITRFRO , I TS I NV, IFFEZ, 

3 JCOLP,NRQW, NCOL , NELEM, NE  TA .NLELEM, NLE  TA,NUELEM , NOE TA, 

4 IE  I 1000), IA (500) ,LE( 252) ,LA( 122) , KINB AS< 122 ) • JHI60) 

TEST  WHETHER  LAST  BRANCH  WAS  IN  FORWARO  OR  BACKTRACKING  DIREC- 
TION 

IF  (IPAR  .EQ.  0)  GC  TO  50 

LAST  BRANCH  WAS  IN  FORWARO  DIRECTION:  INITIALIZE  BIJ)  TO 

PREVIOUSLY  OPTIMAL  SOLUTION 
DC  10  J-=l , NSUBS 
LAST  - NSOL(J)  ♦ 1 

IF  (JFIXIJ)  .GT.  0)  LAST  * JFIX(J) 

0 NTEMP(J)  = I BSTARI LAST , J ) 

GO  TO  200 

LAST  BRANCH  WAS  IN  BACKTRACKING  DIRECTION 

SET  ALL  BIJ)  = IBLBIJ)  AND  IRHS  - AMT  OF  RESOURCE  LEFT 
C INCVAL  = -10000 
IRHS  » IB 
DO  90  J«l, NSUBS 
C IRHS  » IRHS  - IBLBIJ) 

IF  (IRHS  .LT.  0)  RETURN 

00  13C  J»l, NSUBS 

IF  (JFIXIJ)  .GT.  0)  GO  TO  130 

ZJBAR(J)  a ZNAUT(J) 

LAST  * NLAMDA1J)  ♦ 1 
00  110  K*2  * LAST 
KM  1 = K - 1 

IF  (IBP(K,J)  .GT.  IBLBIJ))  GO  TC  120 
3 ZJBAR ( J)  * ZJBAR I J ) ♦ RL AMOAI KM1, J) *( I BP (K , J ) - IBP(KMl.Jl) 

KSEGtJ)  > LAST 
GO  TO  130 
3 KSEG(J)  * KM1 

ZJBAR ( J)  » ZJBAR l J ) ♦ RLAM0AIKM1, J>*(  IBLB(J)  - IBPIKMl.J)) 

3  NTEMP(J)  « 1BLB(J) 

ALLOCATE:  GET  LARGEST  UP-SLOPE 


[ 

§1 


I • 

1 


2074. 

2CC 

RLMAX  = -1. 

2075. 

00  220  J»1,NSUBS 

2076. 

IF  (JFIXIJl  .GT.  0)  GO  TO  220 

2077. 

IF  IN  TEMP  I J 1 .EG.  IBUB(J))  GO  TO  220 

2078. 

K * KSEGIJ) 

2C79. 

IF  (RLMAX  .GE.  RLAMOA (K, J 1 ) GO  TO  220 

2080. 

RLMAX  = RLAMDAIK, J ) 

2081. 

JSTCRE  = J 

2082. 

220 

CONTINUE 

2083. 

IF  (RLMAX  .LE.  -0.5)  GO  TO  1100 

2084. 

C 

INCREMENT  CORRESPONDING  BIJ1 

2085. 

K = KSEG(JSTORE) 

2086. 

KP1  = K ♦ 1 

2C8  7. 

I DEL T A = IBPIKP1 ,JSTORE)  - NT EMP  I JS TORE  1 

2088. 

IF  (IBP(KP1 , JSTORE  1 .GT.  I BUB  I J ST OR  El ) 

2089. 

1 IOELTA  = IBUB I JSTORE 1 - NTEMPIJ STORE) 

2090. 

IRHS  - 1RHS  - IDELTA 

2091  . 

NTEMP (JSTORE)  * NT EMPI JSTORE ) * IOELTA 

2092. 

Z JBAR  I JSTORE ) * ZJ BAR (JSTORE)  ♦ RLAMDAIK, JSTORE) *10ELTA 

2C93  . 

IF (NTEMPl JSTORE) .E C. IbPI KP1 ,J STORE) )KSEG( J STORE) *KSEG I JSTORE ) ♦! 

2094. 

IF  (IRHS  .LE.  01  GO  TO  1000 

2095. 

GC  TC  200 

2096. 

C 

2097. 

C 

END  OF  ALLOCATION 

2098. 

1CCC 

NTS MP I JSTORE ) * NTEMP( JSTORE ) ♦ IRHS 

2099. 

ZJeAR (JSTORE)  = ZJ8AR( JSTORE)  ♦ RLAMDAIK, JSTORE) *IRHS 

2100. 

X * KSEGIJSTCRE) 

2101. 

IF (NT EMP (JSTORE) .L T. IBP ( K, JSTORE) )K SEGI JSTORE)»K-l 

2102. 

c 

INSTALL  OPTIMAL  ALLOCATION 

2103. 

HOC 

ZBAR  = ZTOLZE 

2104. 

DO  1110  J«1,NSUBS 

2105. 

IF  (JFIX(J)  .GT.  0)  GO  TO  1105 

2106. 

LAST  , NSOL(J)  * 1 

2107. 

IBSTARILAST, J)  = NTEMPIJ) 

2108. 

ZBAR  « 2BAR  ♦ ZJBARIJ) 

2109. 

GO  TO  1110 

2110. 

lies 

K » J F I X < J ) 

2111  . 

IDELTA  - IZSTAR(K.J) 

2112. 

2BAR  * ZBAR  ♦ IDELTA 

2113. 

me 

CCNTINUE 

2114. 

INC VAL  * INTI ZBAR) 

2115. 

IF  (ZeAR  .LT.  0.)  INC VAL  * INCVAL  - 1 

2116. 

RETURN 

2117. 

END 

2118. 

SUBROUTINE  COMCHKI J,K) 

2119. 

c 

2120. 

c 

COMPARES  CURRENT  ALLOCATION  (FROM  SUBROUTINE  ALOCTE)  WITH 

2121. 

c 

PREVIOUSLY  EXAMINED  ALLOCATIONS  IN  EACH  UNFIXED  SUBPROBLEM 

2122. 

c 

TO  DETERMINE  IF  OPT.  SOL.  CORRESPONDING  TC  CURRENT  ALLOCATION 

2123. 

c 

IS  ALREADY  KNOWN  FOR  ANY  SUBPROBLEM 

2124. 

C**«* 

•♦♦♦DESCRIPTION  OF  PARAMETERS******** 

2125. 

c 

J * PARAMETER  INOEXING  FIRST  SUBPRQBLEM  FOUND  FOR  WHICH  OPTIMAL 

2126. 

c 

SOLUTION  CORRESPONDING  TC  CURRENT  ALLOCATION  IS  ALREADY 

2127. 

c 

KNOWN  (OUTPUT) 

2128. 

c 

K ■ PARAMETER  INDEXING  THE  PREVIOUSLY  EXAMINED  ALLOCATION  IN 

2129. 

c 

SUBPROBLEM  J WHICH  LEADS  TO  SAME  OPT.  SOL.  AS  WOULO 

2130. 

c 

CURRENT  ALLOCAT ICN  (OUTPUT) 

2131. 

C ***• 

2132. 

c 

2133. 

IMPLICIT  REAL*4  ( A , C , E-H, Q,P ,R-W« Z) , REAL*8  (B.O.X.Y), 

2134. 

1 INTEGERS  (I-N,  Q) 
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- 


I 


t- 


o 

CO 


c 


2135. 

2136. 

2137. 

2138. 

2139. 
2160. 
2161. 
2162. 
2163. 
2166. 

2165. 

2166. 

2167. 

2168. 
2169. 

2150. 

2151. 

2152. 
2 1 53  . 
2156. 

2155. 

2156. 

2157. 

2158. 

2159. 

2160. 
2161. 
2162. 
2163. 
2166. 

2165. 

2166. 
2167. 
2163. 

2169. 

2170. 

2171. 

2172. 

2173. 
2176. 

2175. 

2176. 

2177. 

2178. 

2179. 

2180. 
2181. 
2182. 
2183. 
2186. 

2185. 

2186. 

2187. 

2188. 

2189. 

2190. 

2191. 

2192. 

2193. 
2196. 
2195. 


INTEGERS  IZSTAR,IB10,iBBN0,IZ8ND 

CCMPGN /BLOCKS/  RLA)>0A(50 , 10)  , ZNAUT(  101.2JBAR  (10)  ,NSUB  S,  I ZINC  , 
IIZ6AR,IJ0M,1BLL,NJFIX,.JFIXSN,1B,JFIX(  10)  ,NSOL(  10  ) .NLAMOAUO)  , 
2KSEGC10),  IBSTAR1200.10),  IBUB( 10  >,  1BLB( 10 ) , IBP( 51 , 10) , 
3IBUSEC<200,10) ,I2S IAR1 200 , 10) , I 61 D( 200) , IBBN0(200 ) , I ZBNO (200 ) 

00  1000  J=1,NSUBS 
IF  (JF1X(J)  .GT.  0)  GO  TO  1000 
IF  ( NSGL ( J ) .EQ.  0)  GO  TO  1000 
L * N SCL( J ) 

LP1  = L * 1 

00  5GC  K= 1 |L 

C TEST  ALLOCATION  AGAINST  UPPER  BOUNCS  OF 

C BIJ  IN  KTH  SOL.  OF  SUB  J 

IF  (IESTAR(LPl.J)  .GT.  IBSTAR(K,J))  GO  TO  500 
C TEST  AGAINST  LOWER  BOUNCS 

IF ( IBSTAklLPltJl.L  I.IBUSEO(KtJ)  ] GJ  TO  500 
C 

C ALLOCATION  DOMINATED 

1 DOM  = 1 
RETURN 

C 

500  CONTINUE 
1CCC  CONTINUE 
C 

C ALLOCATION  NOT  DOhiNATEO 

I DOM  = 0 
RETURN 
ENO 

SUBROUTINE  LDOATA(J) 

C 

C LOADS  DATA  FOR  SUBPROBLEM  J INTO  APPROPRIATE  STORAGE  LOCATIONS 

C FOR  SOLUTION  BY  SUBROUTINES  NORMAL  (LP)  AND  BANDB  (ILP) 

C 

IMPLICIT  REAL*6  (A  ,C,E-H,0,P,R-b, 2)  , REAL*  6 (B.O.X.Y), 

1 INTEGER *6  (I-N.O) 

INTEGER*2  JH.KIN BA S ,LA , Lt , l A,  I E 
I NTEGER*2  I ZST  AN  , I 6 ID, IBBNO , I ZBNO 
INTEGER*2  IAS, LAS 
DOUBLE  PRECISION  E (1000) 

REAL  A ( 500 ) 

CGMMC N/BLQCK3/  RLANOA 1 50 , 1 0) , 2N AU I ( 10) , 2J8AR ( 10) ,NSUB S, I ZINC , 
1IZBAR ,!DOM, IBLL, NJFIX.JFIXSM, IB  ,JFIX( 10) .NSOLI 10 ) ,NL AMDAI 10) , 

2KSEG ( 10), I BSTAR( 200,10), IBUBt 10) , IB  LB ( 10) , IBP! 51 ,10)  , 
3I8USECI200.10) , I 2S T ARI 200 , 10) , 1810(200), IBBN0I200) , I ZBN0I200 ) 
CCMMQN/BL0CK6/  XLB S ( 50, 1 0 ) , XUB S (50 , 10),ANATRS( 1000) ,RHS(20, 1 0) , 
lNROWS(lO) ,NCOLS(  10 ) , JF IR ST ( 1 1 ) , IAS(  1000) , L AS ( 50, 10) 

COMMON  E.XLBI122) , XUB( 122) ,B (60) ,X( 60) ,Y (60) ,YTE MP (60 ) ,DSUM, OPROD, 

1 OY , DE , DP, A,  ICNAMt  122 , 2 ) , NAME (20) , N TEMP( 20 ) , SUM  INF , MST AT, 

2 IOBJ , IKCbP,  I V IN, I YOUT , I TCNT,  INVFRQ,  ITRFRQ , I TS I NV, IFFE £, 

3 JCULP.NROW, NCOL, NELtM.NET A, N IE LEM , NLE T A .NUELEM , NUET A , 

6 It  ( 1000),  I A (500)  , LEI  252)  ,LA(- 122)  , KINB  AS(  122)  , JH(60) 

NCOL  * NCOL  S ( J ) 

NROU  - NROhS(J) 

NELEM  * jURSTIJ  + I)  - JFIRST(d) 

LL  = JFIRST(J)  - 1 

C LOAC  A,IA, LA, XLB , XUB, B, JH.KINBAS 

00  10  1=1, NELEM 
A ( I ) = AMATRS(lL  + 1 ) 

1C  ( A ( I ) = (AS(LL«ll 

00  20  KM.nCUL 

LA( K)  • LAS ( K , J) 
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XLBIK)  = XLSS(K.J) 

20  XUBIK)  * XUBS(K.J) 

LAINCCL*-!)  * NELEM  ♦ 1 
Bll)  = 0. 

LL  = A SOL  ( J ) ♦ 1 

8(2)  * FLOAT! IBSTAR(LL,J)) 

LL  = NROW  - 2 
00  40  1=1, LL 

40  B( I *2 ) = DBLEIRHS! l,J) ) 

00  BO  1=1 ,NROM 
JH ( I ) * I 
SC  KINBASII)  = 1 
LL  = NROW  ♦ 1 
00  60  I=LL  ,NCOL 
60  KINBASII)  = 0 
ITCNT  » 0 
I NVFRC  = NROW 
RETURN 
END 

SUBROUTINE  GETLBOI J) 

COMPARES  CURRENT  ALLOCATION  IN  SUBPROBLEM  J WITH  PREVIOUSLY 
EXAMINEO  ALLOCATIONS  IN  ORDER  TO  DETERMINE  AN  INITIAL  LOMER 
BOUND  ON  THE  MAXIMAL  OBJECTIVE  VALUE  IN  SUBPROBLEM  J, 
CORRESPONDING  TC  CURRENT  ALLOCATION 

IMPLICIT  REAL*4  ( A »C»E-H, 0* P»R— W» Z)  , REAL'S  (B,0,X,Y), 

1 INTEGER *4  (I-N.O) 

INTEGER'2  JH, KINBA S.LA.LE, I A, IE 
INTEGER'2  IPART, INCUMB, I VBNO, I V 10,1 OBNO 
INTEGERS  1ZST  AR  ,1  BID,  IBBND,  I ZB  NO 
OOUBLE  PRECISION  EI1000) 

REAL  A ( 500) 

COMMON /BL0CK2/  OFP ART (122 ) ,RE VBNO, INC VAL, I COL, LI  STL, I VAL , IDI R, 

1 NPI VCT, I PTYPE , RCOST, IFEAS, IPART (122), I NCUMBI l 22) « 

2 IVBNQ(SOO),IVIO( 500) ,IOBNO(500) 

C0MMCN/BL0CK3/  RLAM0AI50, 10) , ZN AUTI 10) ,ZJBAR (10) ,NSUBS, IZINC , 

1 1 ZB AR , IOUM, IBLL.NJFIX.JFIXSN.IB ,JFIX( 10) • NSOLI 10 ) .NLAMDA (10) , 
2KSEG(10),IBSTAR(200,10), iSUBI 10), IB LB (10), IBP(51,10), 
3IGUSEC(200,iO),IZSTAR(2OO,lO),IBIO( 200) ,IBBN0(200), t ZBN0(200 ) 
COMMON  t, XLB( 122 ) , >UB( 122 ) ,8(60) , X(60) , Y(AO) , YTEMP (60 ) ,OSUM, OPROO, 

1 UY , OE ,0P, A, ICNAMI 122, 2) • NAME (20) ,NTEMP( 20 ) , SUM  INF ,MSTAT, 

2 I Ob J , IRON P,  IVIN, I VOUT, ITCNT,  INVFRQ, ITRFRQ , I TS INV , IFFEZ, 

3 JCOLP,NROM,NCUL,NELEM,NETA,NLELEM,NLETA,NUELEM,NUETA, 

4 IE! 1000), IA(500),LE(252) ,LA( 122) ,KINBAS(122), JH(60) 

INCUMB ( 1 ) = -10000 

KSTCRE  = 0 
LL  « NSUL(J) 

IF  (LL  .EO.  0)  RETURN 
NEW  = LL  ♦ 1 

SEARCH  PREVIOUS  ALLOCATIONS  FOR  BEST  LOMER  BOUNO  ON  ZJ 
DO  100  K=1 , LL 

IF  ( INCUMB ( 1 ) .GE.  IZSTAR(K.J))  GC  TO  100 
IF  ( I BUS  EC(K , J)  .GT.  IBSTAR(NEM, J) ) GO  TO  100 
B l J*  >-  KTH  BIJS  UPDATE  INCUMB(l) 

INCUMB ( 1 ) = IZSTAR(K.J) 

KSTCRE  = K 
ICO  CCNTINUE 


KSTORE  INDEXES  THE  PREVIOUSLY  EXAMINEO  ALLOCATION  GIVING  THE 
GREATEST  LOMER  BOUNO  ON  ZJ 
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2257. 

2255. 

2259. 

2269. 

2261. 

2262. 

2263. 

2264. 

2265. 

2266. 

2267. 

2268. 
2269. 
22  70. 

2271. 

2272. 

2273. 

2274. 

2275. 

2276. 

2277. 

2278. 

2279. 

2280. 
2281. 
2282. 

2283. 

2284. 

2285. 

2286. 
22  87. 
2283. 

2289. 

2290. 

2291. 

2292. 

2293. 

2294. 

2295. 

2296. 

2297. 
2293. 

2299. 

2300. 

2301. 
23C2. 
2103. 

2304. 

2305. 

2306. 

2307. 

2308. 

2309. 

2310. 
2311  . 

2312. 

2313. 

2314. 

2315. 

2316. 

2317. 


IF  (KSTOHE  .Eg.  0)  RETURN 

I NC  UNB  (21  = IBSTAR(NEW, J)  - 1 8U  SE  C ( KS  TORE  , J 1 

00  210  K=3  iNCOL 
2 1C  INCUMB ( K)  = 0 

1FEAS  = 1 

RETURN 

END 

SUBROUTINE  SAVER (J) 

C 

C STORES  ALLOCATION  ANO  SOLUTION  INFORMATION  FOR  SUbPROBLEM  J 

C 

IMPLICIT  REAL*4  (A,C,E-H,0,P,R-N, Z) , REAL*8  (8,D,X,Y), 

1 INTEGER *4  (l-N.U) 

INTEGER**:  JH,KINBAS,LA,LE,  I A,  IE 

1 NT  EG  EP*2  IPART, INCUMB, I VBNO, IVIO.ICBNO 
INTEGER*2  IZSTAR, l e 10 , 1 BBND, I ZBND 
DOUBLE  PRECISION  E(1000) 

REAL  A ( 5001 

C0MM0N/BL0CK2/  OFP  ART  1 122 ) , RE VB NO , I NC VAL , I COL, L I STL , I VAL  , 1 01  R, 

1 NPI VCT, IPTYPE.RCCST,  IFEAS , I PART ( 1 22 ) , I NCUMB( 122) , 

2 1 VBN0I5001  t IVIDI 5001  ,IOBND( 500) 

CCKMCN/BL0CK3/  RLAMCAI 50 , 10) ,2NAUTt 10) , ZJBAR (10) ,NSUB S, I ZINC , 

UZBAP.IDUM,  IBLL.NJFIX, JFIXSM, IB.JFI X( 10 ) , NSOL ( 10 ) ,NL AMDAI 10) , 
2KSEGI  10) , IBSTAR(20C,10) , I BUS l 10 ) , IBLB 1 10) , IBP! 51 ,1 0) • 

31 BUSECI200, 10), IZSTAR (200,10) , I BIC(  200) , IBBNDI 200) , I Z BNOI 200 ) 
COMMCN  E, ALB  l 122 ) , XUb( 1 22 ) , B ( 60 ) , XI 60 ) , Y (60) .VTEMPI60 ) ,DSUM, DPROD, 

1 OY.DE.OP.A,  ICNAMI  122, 2 ) , NAME (20) , NTEMPC 20 ) , SUM  I NF ,MST AT, 

2 IOBJ.IRCMP,  IVIN, ivjut.it cnt,  invfrq, itrfro, itsinv, iffez, 

3 JCGLP ,NRU W, NCOL, NELEM, NE  TA ,NLELEM,NLE  TA,NUELEM .NUETA, 

4 IE  I 1000), I A (500) ,LE(252)  , LAI  122) ,K INB AS ( l 22)  , JH( 60) 

C TEST  WHETHER  SUBPROBLEM  J WAS  FEASIBLE  (IFEAS  * 1) 

IF  (IFEAS  .EU.  1 ) GO  TO  90 
INC VAL  = -10000 
INCUM8U)  = -10000 
I NCUM8 (2 ) - 10000 
C 

SC  LL  = NSOLIJ) 

NEW  = LL  * 1 

I BU  SE  D (NE  w , J)  * IBSTAR(NEW.J)  - !NCUMB(2> 

IF  (LL  -tU.  0)  GO  TO  1000 

C COMPARE  NEW  SOLUTION  IN  SUB  J WITH  PREVIOUS  SOLUTIONS 

DO  50 C N^l.LL 

IF  ( I eUStO ( NEW ,U ) .NE.  IBUSED(K,J))  GO  TO  500 
C NEW  SOLUTION  SAME  AS  NTH : REWRITE  OVER  KTH  REGION 

IBSTAR(K.J)  = IBST ARINEW, J) 

NTEMP (2)  = K 
RETURN 

5C0  CONTINUE 
C 

C NEW  SOLUTION  DIFFERS  FROM  ALL  PREVIOUS  SOLUTIONS 

1CCC  NSOLIJ)  = NEW 

IZSTAR! N£W,J)  * INCUMB ( 1 ) 

NTEMP (2)  = NEW 

RETURN 

ENO 

SUBROLTINt  DMBRANI J,K ) 

C 

C BRANCHES  ON  ALLOCATION  VARIABLES  BIJ  IN  SUBPROBLEM  J 

C**«*****DE  SCR  I PT ION  OF  PARAMETERS******** 

C J * PARAMETER  INDEXING  SUBPRCBLE  M IN  WHICH  BRANCHING  IS  DONE 

C K = PARAMETER  INDEXING  A PREVIOUSLY  EXAMINED  ALLOCATION  IN 


2318. 

2319. 

2320. 
2321  . 

2322. 

2323. 

2324. 

2325. 
2325. 

2327. 

2328. 

2329. 

2330. 

2331. 

2332. 

2333. 

2334. 

2335. 

2336. 

2337. 

2338. 

2339. 

2340. 

2341. 

2342. 

2343. 

2344. 

2345. 

2346. 

2347. 

2348. 

2349. 

2350. 

2351. 

2352. 

2353. 

2354. 

2355. 

2356. 

2357. 

2358. 

2359. 
2363. 

2361. 

2362. 

2363. 

2364. 

2365. 

2366. 

2367. 
2 368. 
2369. 
23  70. 

2371. 

2372. 

2373. 

2374. 

2375. 

2376. 

2377. 

2378. 


C SU&PROBLEM  J.  THE  CURRENT  ALLOCATION  IN  SUBPROBLEM  J IS  TO 

C BE  FIXED  AT  ThE  KTH  LEVEL  FOLLOWING  THE  BRANCHING  PROCEDURE 

C ************************  A***************** 

c 

IMPLICIT  KE AL*4  ( A » C , E-H, 0, P »R- ta, Z)  « REAL*8  <B,D,X,Y>, 

1 INTEGER*4  I I-N, U) 

INTEGERS  JH,KINBAS,LA,LE,IA,IE 
INTEGERS  I ZST  AR  , I BID  r IBB  NO  > 126  NO 
DOUBLE  PRECISION  El  1000) 

REAL  A ( 50U ) 

CCMMC  K/BL0CK3/  RLA PDA! 50 1 101 , ZNAUT1 10) , 2JBAR ( 10) «NSUBS. I ZINC , 

1 IZBAR ,IDUM, IBLL.NJFIX.JF IXSM, IB  ,JFIX( 10) ,NSOL( 10 ) .NLAMDA 110)  . 
2KSEG1 1C) , IBSTAR1200.10),  I BUB  110 ), IBLB 1 10 ), IB  PI  51  ,10) , 

3 I BUSED  1200, 10) , l ZS TAR1 200 , 10) , I BID! 200) , I BBN01200 ) . I ZBND 1200 ) 
COMMON  E.XLBl 122 ) , XUB 1 122 ) , B l 60 ) , XI 60 ) , Y 1 60) , YTE  HP  160 ) .DSUM, DPROO, 

1 UY,OE,OP,A,  ICNAM1 122 ,2 ) , NAME  120) , NTEMPI 20 ) , SUM  INF ,MST AT, 

2 IUBJ  , IROwP,  IVIN, I VOUT.ITCNT,  INVFRQ , ITRFRQ , ITS  I NV , IFFE Z, 

3 JCOLP.NROW, NCOL.NELEM, NE  T A , NLEL EM , NLE TA .NUELEM , NJE TA , 

4 IE  1 1000), I A (5  00) , LEI 2 52)  ,LAt 122 ) , K I NB AS  1 1 22 ) , J H 1 oO ) 

NTEMPtll  = I8USE01K.J) 

IF  (IBSTARtK.J)  .GE.  IBUB 1 J ) ) GO  TO  200 
C ADD  UP  BRANCH  ON  BIJ  TO  LIST 

IBLL  * IBLL  ♦ 1 
IBID!  IBLL ) » j 
IBBNO(IBLL)  = IBUB  1 J) 

I 2BNC  1 IBLL ) = IZbAR 
C 

2C0  IF  (NTEMPll)  .LE . IBLB1J))  GO  TO  500 


MP 11)  .LE.  IBLB1 J ) ) GO  TO  500 
AOD  DOWN  BRANCH  ON  BIJ  TO  LIST 
IBLL  + 1 


IBLL  * IBLL  + 1 
IBICl  IBLL)  = -J 
IBBN01IBLL)  = IBLB 1 J) 

IZBNC(IBLL)  « IZBAR 

REVISE  BOUNOS  ON  BIJ  FOR  FORWARD  BRANCH 
500  IF  (ieSTAKlK,J).LT.IBUB(J))  1BUB1 J)=IBSTAR(K,J) 
IF  (NTEMPll)  .GT.  IBLBIJ))  IdLBlJ)  = NTEMPll) 


IF  (NTEMPll) 
MSTAT  = 1 
RETURN 


IBLBIJ) ) GO  TC  2000 


: FORWARD  BRANCH  DOMINATED 

20C0  MSTAT  = o 
RETURN 
ENO 

SUBROUTINE  BBKTRK 

BACKTRACKS  IN  A LLOCAT ION- VAR  1 ABL ES  SEARCH  TREE  TO  LOCATE  NEXT 
PROMISING  NODE  TO  BE  EXAM  I NE  0.  LAST- 1 N-F  IRST-OUT  (LIFO) 
SELECTION  RULE  USED. 

IMPLICIT  RE  AL*4  1A  , C ,E-H , 0, P , R- h , Z)  , REAL*8  (B,D,X,Y), 

1 1 NTEGER  *4  I I-N, Q) 

I N T E C-  E P*2  IZSTAR  , I BID,  IBBNO,  IZBND 

CCMMC N/dLUCKj/  RLAMDAl 50 , 10) , ZNAUT1 10) ,ZJBAR (10) ,NSUBS, I ZINC , 
1IZBAR ,IDOM, IBLL.NJFIX.JF IXSM, IB.JFIXI 10 ) , NSOLl 10 ) .NLAMDA 1 10) , 
2KSEG1  10) , I BSTARl 200,10) , IBUB 1 10  ) , I BLBl 1 0) , IBPI51 ,10), 
3IBUSEC1200,10),IZSTAR1200,10>, I BI 01 200) , I BBNO (200) , I Z BND1200 ) 

RETURN  TO  MAIN  If  LIST  OF  STCREO  NOOES  IS  EMPTY  (COMPUTATIONS 
[ COMPLETED) 
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r 


o 

oa 


2379. 

5C 

IF  ueu  .EC.  01  RETURN 

2390. 

C 

IDENTIFY  BRANCHING  VARIABLE  BIJ  CORRESPONDING  TO  LAST  NODE  ON 

2381. 

C 

LIST 

2382. 

J = ieiD( IBLL) 

2383. 

J = lABS(J) 

2384. 

c 

TEST  WHETHER  SUBPROBLEM  J IS  CURRENTLY  FIXED 

2385. 

IF  IJFIXIJ)  .LE.  0)  GO  TO  100 

2386. 

c 

"UNFIX"  ALLOC  AT  ION  TO  SUBPROBLEM  J NOW 

2387. 

NJFIX  = N Jr  IX  - 1 

2389. 

K = JFIXIJ) 

2389. 

JFIXSM  * JFIXSM  - I ZSTAR (Kf  J) 

2390. 

c 

2391  . 

ICC 

JFIXIJ)  = 0 

2392. 

IF  1 1 LEND  ( I BLL I .LE.  UINC)  GO  TO  2000 

2393. 

c 

2394. 

c 

get  NEXT  NODE  FROM  LIST 

2395. 

IF  CIBIOIIBLLi  .LT.  0)  GO  TO  200 

2396. 

c 

NODE  wAS  CREATED  BY  JP-BRANCH  ON  BIJ 

2397. 

ITEMP  = I BLB ( J J 

2398. 

IBL9IJ)  = I6UBIJ1  + 1 

2399. 

IBUei J)  = IB6N0I  IB  LL ) 

2400. 

IZBAR  = IZBNDI IBLL ) 

2401. 

JFIXIJ)  = -1 

2^02. 

GC  TC  1000 

2403. 

c 

2404. 

c 

NOCE  WAS  CREATED  BY  DOWN— BRANCH  CN  BIJ 

2405. 

2CC 

ITEMP  = ISUBIJ) 

2406. 

I BUB  I J ) = IBLBIJ)  - 1 

2407. 

I Bl.  8 I J ) = i BBNDI  IBLL) 

2408. 

IZ8AR  = I ZBNUl IBLL) 

2409. 

c 

2410. 

c 

"BCCKKtEPING"  TO  ALLOW  ORIGINAL  BOUNDS  ON 

BIJ  TO  BE 

RETRIEVED 

2411. 

c 

LATER 

2412. 

10CC 

IBID!  1 8LL ) = - IB  ID  I IBLL ) 

2413. 

I 8BNC l IBLL ) = ITEMP 

2414. 

IZ8N0UBLL)  = -10000 

2415. 

RETURN 

2416. 

c 

2417. 

c 

NUDE  FATHOMED:  UPDATE  BOUNDS  AND  BACKTRACK  AGAIN 

2418. 

20C0 

IF  (IBID! I BLL ) .LT.  0)  GO  TO  2200 

2419. 

I BUB  I J ) = IBBNUI  IBLL) 

2420. 

GO  TC  2500 

2421. 

c 

2422. 

22  CC 

I BL  6 I J } = I BBNDI  IBLL) 

2423. 

C 

2424. 

25CC 

IBLL  = IBLL  - I 

2425. 

GO  TO  50 

2426. 

ENO 

2427. 

SUBROLTINE  OUTSOLI INC) 

2429. 

C 

2429. 

C 

OUTPUTS  SOLUTION  INFORMATION 

2430. 

C»*«*****0E SCK1PTI0N  OF  PAR AME TERS*** **** * 

2431. 

C 

INCIJ)  = PARAMETER  INDEXING  THE  SOLUTION 

IN  S JBPROBLEM  J 

2432. 

C 

IJ  - 1 ,2,... rNSUBS)  FROM  WHICH  THE  OVERALL 

OPTIMUM  I: 

2433. 

c 

COMPRISED  ( INPUT) 

2434. 

(*******t*****«***** ********* ************* 

2435. 

c 

24  36. 

IMPLICIT  REAL*4  t A ,C , E-H , 0» P , R- W, l ) t REAL*  8 

(B,D,X,Y) , 

2437. 

l INTEGER*4  II-N.O) 

2438. 

INTEGER**  I/STAk , l BIO, IBBNQ,  l/BND 

2439. 

I NTEG  EP*2  IAS, LAS 

j 
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2440. 
2441  . 

2442. 

2443. 

2444. 

2445. 
2445. 

2447. 

2448. 

2449. 

2450. 
2451  . 

2452. 

2453. 

2454. 

2455. 
2 4 56. 

2457. 

2458. 

2459. 

2460. 
2461  . 

2462. 

2463. 

2464. 

2465. 

2466. 
2467  . 

2468. 

2469. 

2470. 

2471. 
2472  . 

2473. 

2474. 

2475. 

2476. 

2477. 
2473. 

2479. 

2480. 
2431  . 

2482. 

2483. 

2484. 

2485. 

2486. 

2487. 

2488. 

2489. 

2490. 
2491  . 
2492. 
2493  . 

2494. 

2495. 

2496. 

2497. 

2498. 

2499. 

2500. 


DIMENSION  INC(IO) 

CCMMCN/BLOCnJ/  KLAFDAI50,10),2NAUT(  10 ) , 2 J8  AR  < 10)  ,NSUB S , I 21 NC  , 

1 1 28  AR  , IOUM,  IBLL.NJFIX,  JF  IXSM,  IB,JFIX(10),NSOL<  10 ) , NL AMDA < 10 ) , 
2KSEGI  1C) . I 0 ST AR l 2 0C.10), IdUB( 10) , IBL8I 10) , IBP< 51  ,10) , 

31BUSECI200, 10) ,i 2S T AR 1 200 , 10 ) , I B1D(  200) , 1 8BN 01 200 ) , I 2 BNDI 200 ) 
COMKCN/flt-OCK4/  XLBSI 50, 10)  .XUBS150,  10)  ,AMATRS<  1000  I , RHS ( 20  , l 0)  , 
INROWS  ( 10) , NCOLSI  10 ) , JF l R S T < 1 1 ) , I A SI  1000) , L AS ( 50, 10) 

WRITE  (6,10) 

1C  FORMAT  (*1  OPTIMAL  SOLUTION*//*  SUBPROBL EM • , T20, • SOL . NUMBER • ) 

DC  IOC  J= 1 » NSU8S 
K = INC! J) 

ICO  WRITE  (6,11)  J,K 

11  FORMAT  (I  7 , T20 , 1 5) 

WRITE  (6,12)  IZ1NC 

12  FORMAT  (//'  MAXIMUM  OBJECTIVE  VALUE  =*,110) 

RETURN 

ENO 

SUBROUTINE  PHASE  1 ( J) 

C 

C SOLVES  SUBPROBL EM  J AS  A LINEAR  PROGRAM  PARAMETRICALLY  IN  THE 

C LINKINo  CONSTRAINT  RIGHT-HANC  SICE.  SIMULTANEOUSLY  MODIFIES 

C THE  RESULTING  CLNCAVE  ANO  PI  EC EW ISE-LI NEA R PARAMETRIC  OBJECTIVE 

C FUNCTION  TO  RENCER  ALL  BREAKPOINTS  IBP(K.J)  (K  = 1,2,..., 

C NLAMDA(JJ)  INTEGRAL, 

r 

IMPLICIT  R E Al  + 4 IA»C»E-H,0»P«R— W, 2)  , RE At*  8 (B,D,X,Y), 

1 I N TEGER  *4  ( I-N, Q) 

I NT  EG  ER*2  JH, K IN 6A S , LA.Lfc , I A , IE 
I NTEG ER*2  I 2STAR  , I elD, IBBNO, I 2BN0 
DOUBLE  PRECISION  E(1000) 

DIMENSION  A (500) , 1 NC( 10) 

COM MON /BLOCK/  2T0L  2E,2T0LPV, 2TCCST, 2T0LRJ, 2T0LSM, QRO, QMA.GBA  ,QF l , 

1 QEU, CBL,QA,QPl,UMI,Q2  ,0  I » QF , QN  » QU» NRMAX , NEMAX , Ob,UC, 

2 OE,QH,OL,QO,QR,UM,CIG,NTMAX 

COMMON /8LUCK3/  K LA MOA ( 50 , l 0) , 2N AU T ( 1 0) , 2 JB AR ( 10)  ,NSUB  S, I 2INC  , 

1 1 2B AR  , I UOM , 1BLL.NJFIX, JFIXSM, 1B.JFI X(  10 > , NS0L1 10 ) , NL A MOA < 10)  , 
2KSEG<  1C) , I BST Ah<  20C.10) , I0Ub( 10) , 1 8 LB ( 1 0)  , IB P< 5 l , 1 0 ) , 

3 1 BU St C 1200,10) , US  TAR (2 00, 10), I Bl D( 200) , I BBND1200) , 1 26NOI200 ) 
COMMCN  fc,XLB( 122) , XUB(122> , B ( 60 ) , X( 60 ) , Y(60) , YTE MP <60 ) ,OSUM, OPROD, 

1 UY.OE.OP.A,  I C NAM l 122 , 2 ), NAME (20) , N TEMPI  20  ) , SUM  I NF , MST AT, 

2 10BJ,  IROWP,  IV IN, I VOUT.ITCNT,  INVFRG, ITRFRQ , l TS I NV , IFFE2, 

3 JCULP.NROw, NCOL,NELEM,NETA  ,NLE LEM , NLE T A, NUE LEM , NUETA , 

4 IE(  1000), I A (500) , LEI  252)  ,LA< 122) , K I NB AS ( 1 22 ) , JH(60) 

C otT  OPTIMAL  LP  SOLUTION  WITH  RHS  = IBLB(J) 

I TS IN  V = 99999 
CALL  NCRMAL 

2NACTIJ)  = SNGLIXI  I06J)) 

186  AR  = IBLBIJ) 

K = 0 
C 

25  K = K ♦ 1 

IBP(K.J)  = IBBAR 
C 

C COMPUTE  NEXT  BREAKPOINT  VALUE  BBAR 

CALL  UNPACK ( 2 ) 

CALL  f TK  AN  II) 

IF  (Y(IUBJ)  .Lfc.  2 TCOST ) GO  TO  1000 

DP  = 1.E10 

DO  IOC  I 3 1 • NHOW 

IF  (I  .Eg.  108 J)  GC  TO  100 

JCOLP  - JH(  I) 
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cr> 

cr. 


2501. 

IF  1 Y < 1 ) . GE.  2T0LPV)  GO  TO  60 

2502. 

IF  (Yd)  .LE.  —i  TOLPV)  GO  TO  50 

2503. 

GO  TC  100 

2504. 

sc 

OY  * XLB1 JCGLP ) 

2505. 

GO  TO  70 

2506. 

6C 

OY  * XU6  ( JCOLP  ) 

2507. 

7C 

OE  = (CY  - Add  /YU) 

2503. 

IF  (DP  .LE.  DE)  GO  TO  100 

2509. 

DP  = CE 

2510. 

IROWP  = I 

2511. 

ICO 

CCNT!NUE 

2512. 

OTEMP  = FLC AT ( IBBAR)  ♦ OP 

2513. 

DE  = CTEMP  ♦ ZTOLZE 

2514. 

IBBAR  = lOINT(Ufc) 

2515. 

IP  (OE  .LT.  0.)  IBBAR  - IBBAR  - 1 

2516. 

IF  (leBAK  .GE.  IBUB(J))  GO  TO  1000 

2517. 

TEMP  * FLOAT (IBBAR) 

2519. 

DE  = OTEMP  - TEMP 

2519. 

IF  (IEBAK  .Ed.  IBPIK.Jd  GO  TO  500 

2523. 

IF  (OE  .LT.  ZTOLZE)  GO  TO  400 

2521. 

GO  TO  600 

2522. 

C 

2523. 

C 

NEW  BREAKPOINT  BBAR  NATURALLY 

2524. 

4C0 

RLAMO/(K,J)  = SNGL(YUOBJ)) 

2525. 

c 

UPDATE  X TG  REFLECT  VALUES  AT  1 

2526. 

00  41C  1 = 1 , NRG  1* 

2527. 

4 1 C 

X(  I)  = X(  1 J * Y(  1)  *0P 

2523. 

B ( 2 ) = FLOAT(IBBAR) 

2529. 

CALL  NORMAL 

2530. 

GO  TC  25 

2531  . 

C 

2532. 

c 

NEW  BREAKPOINT  BBAR  < PREVIOUS 

2533. 

5C0 

D TEMP  = XI  IUBJ) 

2534. 

IBBAR  = IBBAR  ♦ 1 

2535. 

c 

UPDATE  X:  NEW  BBAR  = OLD  BBAR 

2 536. 

00  51 C I = 1 • NRU W 

2537. 

5 10 

X(  I)  * X(  IJ  4 Y< I) 

2538. 

B ( 2 ) = FoUATl IBBAR) 

2539. 

CALL  NORMAL 

2540. 

R L AMO  A ( K « J ) = SNGHX(IOBJ)  - OTEMP) 

2541. 

GO  TO  25 

2 542. 

c 

254  3. 

c 

NEW  BREAKPCINT  BBAR  > ULO  BBAR 

2544. 

6CC 

RLAMOA(K,J)  = SNGL ( Y ( I Ob  J ) ) 

2545. 

K = K ♦ 1 

2546. 

IBPIK.J)  = IBBAR 

2547. 

OTEMP  = X1IUBJJ  ♦ Y ( IUBJ ) *(DP  - OE) 

2548. 

IBBAR  x IBBAR  4 1 

2549. 

DP  = OF  ♦ 11.  - CE) 

2550. 

00  6 1 C I = 1 »NROW 

2551. 

6 1C 

XII)  = X( I)  » Y ( I ) *0P 

2552. 

8(2)  * FLOAT (I BBAR) 

2553. 

CALL  NORMAL 

2554. 

RL  AMD  A ( K t J ) = SNGL(XdOBJ)  - OTEMP) 

2555. 

GO  TO  25 

2556. 

c 

2557. 

c 

tND  OF  PLP 

2553. 

10CC 

RL AMD  A (K t J ) - SNGL ( Y l IUB  J ) ) 

2559. 

NLAHOA ( J ) > K 

2560. 

I6P<K4l,j|  « IBUB(J) 

2561  . 

RETURN 

♦ 1 


♦ i 
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*****  SAMPLE  INPUT  OATA  FOR  DECOMPOSITION  CODE  OSLO***** 


1 


A 293 


0 


1 

NAME 

SLB1 

ROWS 
N OBJ 
l RCM 
l RCNII 
l ROk  12 
l ROkl3 
L RCklA 
COLUMNS 

CCL1 1 

CBJ 

-56. 

ROM 

AO. 

com 

RCM  1 

16. 

RON  12 

38. 

CCLll 

RCkl3 

8. 

R0M1A 

38. 

CCL12 

CBJ 

-113. 

R0W1 

91. 

CCL12 

RCkll 

92. 

R0M12 

39. 

CCL12 

RCM3 

71. 

R0W1A 

52. 

CCL13 

CBJ 

-30. 

R0W1 

10. 

CCL13 

RCMi 

Al. 

R0M12 

32. 

COL  13 

RCM13 

30. 

R0W1A 

30. 

CCU4 

CBJ 

-62. 

ROW! 

30. 

CCL14 

RCkl  1 

16. 

ROM  12 

71. 

COL  I A 

RCkl3 

60. 

RONIA 

A2. 

CCL15 

CBJ 

-210. 

ROM 

160. 

COL15 

RCMI 

130. 

R0kl2 

80. 

CCL15 

PCM3 

200. 

R0W1A 

170. 

RFS 

RHS1 

RCMI 

221. 

R0W12 

182. 

RHS1 

PCW13 

258. 

R0W1A 

232. 

ENCATA 

0.  0. 
1.  1. 
C 

2 

NAME 

0.  0. 
1.  1. 
200 

SLB2 

C. 

1. 

RCkS 
N OBJ 
L RCkl 
L RCW21 
l RGM22 
L R0W23 
L RCW2A 
COLUMNS 

CCL21 

CBJ 

—A3. 

ROM 

20. 

CCL21 

POk21 

23. 

R0M22 

26. 

COL21 

RCk2  3 

18. 

R0M2A 

9. 

CQL22 

CBJ 

-7. 

ROM 

3. 

CCL22 

PCN21 

A. 

R0M22 

5. 

CCL22 

RCN23 

6. 

R0H2A 

7. 

C0L23 

CBJ 

-33. 

ROM 

12. 

CC123 

RCN21 

18. 

R0W22 

40. 

CCL23 

PCN23 

30. 

R0M24 

20. 

CCL2A 

CBJ 

-5. 

RUM 

3. 

CCL2A 

RCN21 

6. 

R0W22 

8. 

COL2A 

CCL25 

RCN23 

CBJ 

A. 

-12. 

ROM  1 

18. 

i 
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nMMMMBK 


II 


X 

c 


CCL25 

RCh22 

12. 

ROW  2 3 

a. 

CCL25 

PCh24 

3. 

RHS 

RHSl 

RCh2l 

36. 

R0W22 

64. 

RHS1 

RCh23 

46. 

R0W24 

2 7. 

ENCATA 

0.  C. 

0.  0. 

0. 

1.  1. 

1.  1. 

1. 

0 44 

3 

RARE  SU63 

news 
n oej 

L RChl 
L RCW31 
L RCW32 
l RCh  33 
L RCW34 
COLUMNS 


CCL31 

cej 

-32. 

ROW! 

9. 

COL  3 1 

RCh3 1 

12. 

R0W32 

30 

CCL31 

PCh33 

31. 

RQM34 

2L 

CCL32 

OBJ 

-20. 

ROWl 

25 

COL  32 

PCh3 1 

8. 

R0W32 

15 

CCL32 

P0W33 

6. 

R0W34 

4. 

CCL33 

CBJ 

-4. 

ROWl 

1. 

CCL33 

PCW31 

2. 

R0W33 

3. 

CCL33 

PCh34 

1. 

C0L34 

CBJ 

-3. 

ROWl 

1. 

COL  34 

PCh3  1 

1. 

ROW  32 

1. 

C0L34 

RCW34 

2. 

CCL35 

CBJ 

-43. 

ROWl 

10' 

CCL35 

R0M32 

23. 

R0W33 

18 

CCL35 

PCH34 

14. 

RHS 

RHSl 

PCh31 

16. 

R0W32 

48 

RHSl 

PCh33 

41. 

R0W34 

29. 

ENCATA 

0.  0. 

C.  0. 

0. 

1.  1. 

1.  1. 

1. 

0 37 

4 


NAME  SLB4 

PCWS 
N OBJ 
L RChl 
L RCh4l 
L RGh42 
L RCh43 
L RCh44 
COLUMNS 


CCL41 

cej 

-426. 

ROWl 

280 

C0L41 

PCW41 

200. 

R0W42 

100 

C0L41 

RCW43 

60. 

ROW  44 

310 

C0L42 

cej 

-42. 

ROWl 

10. 

CCL42 

PCW41 

20. 

R0W43 

21. 

CCL42 

PCW44 

8. 

C0L43 

cej 

-12. 

ROWl 

8. 

C0L43 

RCW41 

6. 

R0W42 

20. 

C0L43 

PCW4  3 

4. 

R0W44 

4. 

C0L44  cej  -8. 


ROWl 


1. 
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R0N42 


3 


II 

( 

■ 

i* 

I 


t 


CC144  RCh4l  2. 

CC144  PC644  6. 

C0145  CBJ  -2.  ROtal 

CCL45  RCA41  1.  R0W43 

CC145  PC»i44  1. 

RHS 

RHSl  PC641  160.  ROW 42 

RHS1  RCM43  61.  R0W44 

ENCATA 

0 • 0 • 0 • 0«  0. 

1.  u 1.  1.  1. 

0 • 20 


09/ 


i 


♦•♦♦•OUTPUT  GENERATED  e*  OSLC  ON  SAMPLE  PROBLEM64646 


START  NEW  PROBLEM 


I8PIK,  1) 
RLAMDAIK, 
ZNAUT ( I) 

< 0 10 
1)  « 3.00 

* -0.0000 

11 

2.07 

40 

2.07 

41 

1.40 

SO  SI  162 

1.40  1.31 

163 

1.31 

185 

1.22 

186  193  194  200 

1.22  1.18  1.03 

1.03 

1.01 

IBPIK,  21 
RLAMDAIK, 
ZNAUTI  21 

- 0 12 
21  * 2.75 

= -C.0000 

13 

2.33 

15 

2.33 

lb 

2.11 

27  28  36 

2.11  1.60 

37 

0.64 

39 

0.63 

40  42  43  4 4 

0.62  0.62  0.61 

44 
0.  59 

0.37 

tePIK,  3) 

RLAMOA IK, 
ZNAUTI  3) 

* 0 10 
31  * 4.30 

= -0.0000 

11 

4.00 

12 

3.54 

16 

3.56 

17  18  30 

3.45  0.67 

31 

0.60 

34 

0.59 

35  37 

0.57  0.32  0.20 

IBPIK,  4) 

> 0 l 

2 

11 

12 

13  20 

RLAMOA  (K*  4)  ■ B .00  4.20  4.20  2.00  1 . 52  1.52 

ZNAUTI  4 ) = -0.0000 


SUB  1 

SOL 

li 

266 

0 

55 

64 

50 

24 

1 

0 

0 

0 

1 

sue  2 

SOL 

l: 

62 

1 

9 

21 

14 

8 

1 

1 

0 

0 

1 

SUB  3 

SCL 

is 

50 

20 

13 

24 

20 

12 

0 

0 

1 

1 

1 

SUE  4 

SOL 

is 

64 

0 

131 

63 

34 

211 

0 

1 

1 

1 

1 

TIME  * 

1 

. 10 

SECONOS: 

1Z1NC  » 

442 

SUB  4 

SOL 

2 s 

62 

0 

132 

63 

36 

212 

0 

1 

1 

1 

0 

sue  3 

SCL 

is 

50 

21 

0 

0 

0 

0 

0 

0 

0 

0 

0 

SUB  3 

SOL 

1 S 

50 

22 

0 

0 

0 

0 

0 

0 

0 

0 

0 

sue  4 

SOL 

3s 

52 

5 

137 

S3 

38 

215 

0 

1 

0 

1 

1 

SUP  3 

SCL 

28 

70 

0 

5 

9 

14 

8 

0 

1 

1 

1 

l 

TIME  * 

1 

.62 

SECONOSi 

I 2 1 NC  * 

450 

sue  2 

SOL 

2s 

55 

2 

13 

26 

20 

15 

1 

0 

0 

0 

1 

SUB  3 

SCL 

35 

63 

0 

8 

10 

17 

11 

0 

1 

0 

0 

1 

SUB  3 

SOL 

4 8 

67 

0 

6 . 

10 

14 

10 

0 

1 

1 

0 

1 

sue  4 

SCL 

48 

54 

0 

134 

66 

36 

218 

0 

1 

1 

0 

0 

SLB  2 

SCL 

3 s 

55 

11 

3 

25 

18 

11 

1 

1 

0 

1 

0 

TIME  » 

2 

.26 

SECONDSs 

UINC  » 

452 

TIME  = 

2 

.29 

SECONOSs 

U1NC  * 

455 

SUB  2 

SOL 

4: 

50 

2 

9 

33 

22 

11 

1 

1 

0 

0 

0 

SUB  2 

SCL 

58 

67 

0 

3 

13 

10 

8 

1 

1 

0 

1 

1 

SUB  2 

SCL 

1 s 

62 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

sue  i 

SOL 

28 

261 

26 

56 

2 

89 

70 

1 

1 

l 

1 

0 

TIME  * 

2 

.92 

SECONOSs 

UINC  » 

457 

sue  i 

SOL 

3 8 

240 

0 

30 

70 

28 

32 

0 

0 

1 

0 

1 

TIME  = 

3 

. 10 

SECONDSs 

UINC  * 

462 

OPTIMAL  SOLUTION 
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<«»**CLTPUT  CEPERATEC  EV  uMLC  Oh  SAPFLE  PROBLEM***** 


see  i 

SCL 

1 : 266 

55 

6A 

50 

2A 

1 

0 

0 

0 

1 

SLE  2 

SCL 

1 : 62 

1 

5 

21 

1A 

6 

1 

1 

0 

0 

1 

see  3 

SCI 

1 : 50 

20 

1j 

cA 

2d 

12 

0 

0 

1 

1 

1 

SLE  A 

SCL 

1 : 6A 

u 

1J1 

63 

3A 

211 

0 

1 

1 

1 

1 

TIPE  = 

1 

. 6A  SECCPCS: 

1 6 I AC  = 

AA2 

SLE  3 

SCL 

2 : A 7 

0 

1A 

25 

20 

1A 

0 

0 

1 

0 

1 

SLP  3 

SCI 

3:  50 

0 

C 

0 

0 

0 

c 

0 

0 

0 

0 

SLP  3 

SCI 

A : 50 

0 

C 

0 

U 

D 

0 

0 

c 

0 

0 

SLE  3 

SCL 

5 : 63 

0 

6 

ID 

17 

11 

c 

1 

0 

0 

1 

SLE  A 

SCL 

2 : 52 

5 

137 

33 

33 

215 

c 

1 

c 

1 

1 

T 1 Pt  = 

2. A A SECCAOS: 

121 AL  * 

AA3 

SL  f 3 

SCL 

6 : 7C 

u 

3 

9 

1A 

3 

0 

1 

1 

1 

1 

SLE  A 

SCL 

3:  50 

0 

136 

33 

AO 

216 

c 

1 

c 

1 

0 

TIPE  = 

2 

.65  SECCPCS: 

I 2 1 AC  = 

AAfl 

SLP  3 

SCL 

7:  67 

0 

6 

1U 

1A 

10 

c 

1 

1 

u 

1 

SLE  2 

SCL 

2 : 55 

2 

13 

26 

20 

15 

1 

0 

C 

0 

1 

see  2 

SCL 

3:  55 

11 

3 

25 

13 

11 

1 

1 

C 

1 

0 

see  a 

SCL 

A:  62 

0 

13c 

63 

36 

212 

c 

1 

1 

1 

0 

TIPE  = 

A 

.15  SECCACS: 

UINC  -= 

A50 

SLE  A 

SCL 

5 : 5A 

U 

13A 

60 

36 

216 

0 

1 

1 

0 

0 

T IPE  = 

A 

. A5  SECCACS: 

1 2 I AC  = 

a55 

SLe  2 

SCL 

A:  5C 

2 

9 

33 

22 

11 

1 

1 

c 

0 

0 

SLE  2 

SCL 

5:  67 

0 

3 

13 

10 

a 

1 

1 

C 

1 

1 

SLE  2 

SCL 

6:  62 

0 

C 

0 

0 

0 

0 

0 

c 

0 

0 

SLE  1 

SCL 

2:  261 

26 

56 

2 

89 

70 

1 

1 

1 

1 

0 

T IPE  = 

7 

. C 5 SECCACS: 

12  1 NL  = 

A57 

SLE  l 

SCL 

3 : 2AC 

u 

3L 

7u 

26 

32 

0 

0 

1 

D 

1 

SLE  l 

SCL 

A:  231 

b 

S 7 

3A 

119 

ADD 

1 

1 

c 

1 

0 

I IPE  = 

1C 

.25  SECCACS: 

12INC  = 

A62 

CPTIP61  SCLLT1CA 


Slf FRCELEP 
1 
2 


SCL.  AOMdEfi 


P 4 p t ml  P CejfCTIVE  VALLE  = 


TClAL  SCLLTICA  TIME  = IL.AtStCUNDS 
T I PE  1 P FFASE1  = C.85  StCLALo 

PASTER  ERCELEP  SCLVEC  229  TIMES:  TOTAL  TIME  SCLVlNG  MASTER  PROBLEM  = 7.62  SECONDS 

PL  P SEP  CP  TIPES  EACH  S LBPnUdL  EM  oOlVED  = A 6 7 5 

ALP8ER  CP  CISTIACT  SCLLTICNS  CdTAlNEL  IN  EACH  SJEPRCELEM  = A t>  7 5 

TCTAL  TIPE  SCLVIAG  SL8FRl3LcM.i  = 2.35  SECONDS 


i 


CC142 

cej 

“Hif  . 

ftJwl 

1C. 

CC142 

FCn.41 

2o. 

RUH43 

21. 

CC 1 42 

FCv>44 

0. 

CC143 

cej 

— Lt  • 

RJhl 

a. 

CC  L <.  3 

RC»41 

t. 

RUk.^2 

2C. 

CC143 

s c *4  3 

4. 

RUR44 

4 • 

CC144 

cej 

-J. 

ROnl 

1. 

CC144 

RC*4l 

R0h42 

3. 

ccm 

PC»44 

O • 

ecus 

cej 

"t  • 

RUNl 

1. 

CC145 

PCR41 

i. 

RQ*4.» 

2. 

CC145 

FC*44 

A* 

RH  £ 1 

FCV»  1 

AU  • 

Rb£  l 

FCP41 

loO  • 

RJR42 

86. 

Rl-Sl 

FCh43 

01  • 

Rj*44 

230 

tlSCATA 

C. 

L • 

c. 

0 • 

c. 

1. 

1 . 

1 . 

1. 

1. 

c 

2C 

115 


0024 

40*2  1 

G« 

(80*22 

*•0*23 

**• 

CC  L 25 

cej 

-'l«i  • 

180*1 

CCL25 

401*42 

1 <L. 

KU*23 

00125 

PC  *24 

J>. 

fi(-S 

<801 

40*1 

C<L  • 

8h!l 

40*21 

-*0  • 

KU*22 

<80  1 

40*23 

Hb  • 

180*24 

ENCATA 

C.  C. 

c . c. 

C. 

1.  1. 

1 . 1. 

1. 

C 

44 

3 

M4E 
SC  Vi  S 

SU3 

N UR  J 
l *8  C Vi  1 
l 8 C V 3 1 

l "8  C V>  32 
l <80*33 
l <8  0*34 

COLUMNS 

0031 

cej 

-32  . 

(80*1 

0031 

40*31 

12  • 

KU  *32 

CCL31 

40*33 

31  . 

K0*34 

00,32 

cej 

~2C. 

(80*1 

0032 

SC*3  1 

b« 

(80*32 

0032 

40*33 

o. 

K0*34 

00  33 

Cb  J 

• 

(80*1 

0033 

40*31 

kU*33 

00  33 

40*34 

1. 

00 134 

CEJ 

-3. 

KO*  1 

OLE  34 

40*31 

(80*32 

0034 

40*34 

J • 

0035 

CEJ 

-*‘♦3  • 

*80*1 

0 0 35 

40*32 

«iJ  • 

(80*33 

0035 

40*34 

l-t. 

RES 

•8  H S 1 

40*1 

ia. 

4 0 1 

40*31 

lo  • 

K0*32 

j.o  i 

40*33 

(8  <3*  34 

EM.  AO 

C.  C. 

C . C. 

C. 

1.  1. 

1 . 1. 

1. 

C 

37 

4 

M4E 

4CWS 

S0C4 

4 OR  J 
L <8C*  1 
t *0*41 
l <80*42 
l *8CVi43 
l KC  * 44 

COLUMNS 

0041 

o ej 

— • 

nOMl 

0041 

*0*41 

tUU  • 

RG*42 

0041 

40*43 

Go  • 

KO  *44 

4»***SAfPlE  ll\Fl.T  CAT  A fLh  ItCGKPGS  IT  I l)N  COOfc  CMLC*»*** 


4 

<<53 

1 

i\tre 

1 

1 

j 

siei 

PCk>S 

n oej 
L rch 

l RCk.ll 
L RCU12 
l RCk>13 
L RCk.14 

CCILUNS 

cctu 

CEJ 

-3o  • 

Kjhl 

4C. 

CCL11 

fCk.ll 

lo. 

kOwl2 

38. 

CClll 

f Ck>!3 

J • 

RGnl4 

38. 

CL  1 12 

cej 

-iii. 

R0W1 

91. 

CCL12 

PCk.ll 

ROk.12 

39. 

CCt  12 

FCk.13 

7i  • 

K3kkl4 

52. 

CC113 

cej 

-3U  • 

KUk.1 

1C. 

CCl  13 

FCk.ll 

*♦1  • 

kO.12 

32. 

cm3 

FCk.13 

Jo* 

R0.14 

3C. 

CCl  14 

cej 

~c2  • 

KOtk  1 

JC. 

CC114 

PCk.ll 

i.6* 

RU.12 

71. 

CC  1 14 

fCk.13 

oo* 

RJW14 

42. 

CC115 

CEJ 

RUkil 

IcO. 

CCl  15 

FCkll 

i^O  • 

RGH2 

8C. 

CCl  15 

FCk.13 

^uo* 

KJM14 

170. 

PfS 

Rf  i 1 

fCk.1 

1 JQ* 

Rl-J  1 

fCk.ll 

2*  l. 

RUk.12 

182. 

FU-J  1 

FCk.13 

*.  jb. 

R.Jk.14 

232. 

ENCATA 

C.  C. 

c . c. 

C. 

1.  1. 

C 

2CC 

1 . 1. 

1. 

2 

NAPE 

PC*S 

£IH2 

p oej 
l RCU 
l RCP21 
l KCk.22 
l RCV23 
l RCI>24 

CClUMNS 

CC121 

CEJ 

KOtkl 

2C. 

CC121 

FCk<21 

«.3  • 

KU*.22 

26. 

CC121 

F C k>23 

lo. 

KUW24 

5. 

CC  122 

CEJ 

~7. 

Rllk.1 

3. 

CC  122 

FCk-21 

Ru*22 

5. 

C C 1 22 

t£k .23 

0* 

KiJk.24 

7. 

CC  123 

CEJ 

-J  J • 

R JM 1 

1 2 . 

CCL23 

FCk>cl 

iti« 

ROk.22 

4C. 

CCl  23 

FCk.23 

Jo. 

RG.24 

2C. 

CC  124 

cej 

“D  • 

K Jk>  1 

3 . 

4 t8  , . IMPLICIT  <vtA1.*A  <A,C,c-H,G,P,K-»,2)  , Kt AL*  6 lb,D,X,Y), 

2i£' j.  1 iMctthH  I I-itt  Ul 

2686.  INTEGER*..  IAsTAb  ,ieU),IBbNO,lAbNO 

2687.  IMEGEP»<-  lAi.LAS 

268).  DlPENSIuN  INC(IG) 

iteO.  CCPPCR/OloCkb/  K LA  PICA  l B,2U,  10 >, ZNAUTl 20 , 10)  »2JBAR(10)  ,Nl  IN*.,  NSOb  S, 

26  90.  lUlhCtU<tAfi,lDlMflklL,HJFlX,JH*SI>,  IB  ( B)  , JFl  XI 10  ) ,NSOt  ILOI  , 

4 691  . 2NLAMDA I lul  >iBjlAK(E,AU>lU)tIUuSEG(3,4CtiO)lI EUBl 5 , 1C  I , I oL b l 3 , 10 ) » 

2692  . 3I2STAM‘tu«i.CitIbU)  (2 ,200  ) . IduNU  (2C0  ), I 2dNQ (2C0 ) 

2693.  CCPPCR/0L.-GW9/  X2bS(2o, 10 > ,XJoi (20 , 10 ) , AHA TR S I 1000 ) , h HS 1 1 0 , 1 0) , 

4 699  . 1NRCWS  ( lu)  .NCGlBC  10  ) , JF IK S I ( 1 1 ) , I A « < 1000) , L A S ( 20 , 10 ) 

269?.  «RTTE  (OtiL) 

2t9b.  1C  FORMAT  1*1  OPTIMAL  itiL  JT  1 ON*  / / • StBPKCBL  EM  • , T20,  ' SOL  . NuMbfcK  • ) 

2697.  CC  ICC  J=.,NiUBi 

2699.  K = lACU) 

2699.  ICC  WRITE  (6,11)  j»K 

^700.  11  FGPMAT  (17,720, IB) 

270  1 . WRITE  I c • 1 4 ) 1 2 1 NO 

4 7C2 . 1 4 FCRPA7  (//•  MAXlrtoP  (iBJcLIUc  VALLE  =*,110) 

2 7C3 . RETLRX 

2 7CA . ENC 


2 1 c 3 « 
2c2‘ ». 
2 62  a . 
<•62  6 . 
262  7 . 
2623. 
2 1 2 9 . 
2630  . 
2631. 
2622  . 
2633. 
2 6 34  . 
2 6 3 5. 
c 6 36  . 
26  2 7 . 
2 634. 
262-7. 
2640. 
c 6 6 1 . 

2642  . 
cl4  i . 
2644  . 

2643  . 
2 64  j . 

264  7 • 
2644. 
2 644. 
2620. 
2651  . 
26  52  . 
2 6 5 3. 
2654  . 
2 6 5 J . 
26  56. 

265  7 . 
26  54  . 
4 6 59  . 

266  J . 
2661  . 
26o 2 . 
266  J . 
26  6 *. 
2665. 
<666  • 
266  7 . 
4 6 6 3 . 
2669. 
2 6 70. 
2 6 71  . 
2 6 72  . 
2673  . 
26  74  . 
2675. 
26  76. 

;rJ!  26  7 7 . 

rr  2679. 

C 2679. 

2 6 8'J  . 
2661  . 
2662  . 
26  83. 


21ZSTAF(4l,1C)  * IB  lu  ( 2 ,2uo  ) , IBBND  12  CO  ) , 1 6 BND  ( 2 CO ) 

C RE  TORI'*  TO  MAIN  if  LIST  Of  SJCREU  NOUtS  IS  EMPTY  (COMPUTATIONS 

6 CGPFLe  TtC ) 

5C  IF  lien.  .Lw.  Cl  RETURN 

C lOEATIrY  bkaNCHINu  VARIABLE  fcU  CORRESPONDING  TO  LAST  NUDE  UN 

C LIST 

1 = I E I Jl  1 , )fcLL  ) 

J = I E 111 n > IfcLL) 

C TEST  writ  IhEf;  SuEFRuBLEM  J Ii  CURRENTLY  flXED 

IF  ( J F IX l J ) .El.  0 I GO  TO  lOu 
C "U AF i A " AlLLLaTILN  TU  SJbPRO  EL  EM  J NOR 

A JF  IX  = N J r lx  - 1 
K = JF  IXl J ) 

JFIXSP  = J6JXSR  - I 2STAK ( K , J I 
JFIXl J)  = o 
C 

ICC  IF  lIieNJl  IttLI  .LE.  12INCJ  oO  TO  2C00 

r 

t Ofcl  NtXl  WCGE  FROM  L1SI 

IF  l I .Li . Ll  CL  TC  <iUO 
C ACCE  nAi  CRtATEC  bY  JP-dRANt-F  CN  dIJ 

ITEfP  = IBLBII.Jl 
I B L 8 ( I , j ) = ldOb  U , j)  + 1 

ibob ( i ,ji  - ibenoi  iell) 

I ZB  AR  = i dfcNC  ( IfcLL  ) 

GC  TC  lOo  l 

c 

C AGCE  *AS  CKEATEC  BY  UOwN-BkAACH  CN  BIJ 

cCC  I = -I 

HEMP  = IBLfi(I.J) 

iaoei  i,j)  = iolc ii  ,ji  - i 

1BL81  l,o)  = IbfcNUl  IdLL) 

IZfcAR  - ioEACl  ICLLl 

c 

C " fcCCKK  fc  t P I N L"  Tl  Allow  uRIGIAAL  EOUNOS  CN  BIJ  TO  BE  RfcTRi  EVEO 

C LATER 

1CCC  ieiCIl.lOLL)  = - Id  ICl 1,  IoLL  ) 

I EBNC  l IbLL  I - ITtfclP 
IZBAC  l IbLL  ) = -100CC 
RETURN 
C 

C WOLE  FAIrtOAfco:  JPliATE  dCONCS  ANo  BACKTRACK  AGAIN 

2CCC  IF  II  .lT.  0)  GL  IL  4200 
IbLEl  i,J)  ^ IBcNCl  IdLL) 

G C T C 23k. C 
C 

22CC  I = - 1 

1 d L d ( I,j)  = IbENDl  I c L L ) 

C 

< 5 C l IBLL  = IdLL  - l 
GC  TO  50 
EAD 

SLBPQlTIWt  COTSulI  IAU 
C 

C CLTFOTd  SLllT  loA  INFORMATION 

C**«»****CESCK1PT  icn  lf  parameters******** 

C IACIj)  = PARAMtltR  INDEXING  THE  SOLUTION  IN  SUBPROBLEM  J 

C IJ  - i ,2,...  ,NSJB$)  PROP  WHICH  T FE  OVERALL  OPTIMUM  IS 

C CLP  PR  I S E L (INPUT! 
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IMPLICIT  REAl**.  (A  ,C,E-H,c,P,K -k,2),  REAL*8  (d,D,X,Y), 

1 1 N IfcbfcK  *0  ( 1— N*  U > 

INTEGER**  JH,MNBAS,LA,LE,  IA,  It 
INTEGER**  12STAK  ,1  BlU,  IB6N0,  UbNU 
COCBLE  PklL13ICN  t UUOO) 

REAL  A(aoC) 

CCMPCN/bLuCkj/  kLAMDA(3,*U,lJ)  . 2NAUI<20,10)  , 2JBARI  10)  ,NHNK,N3UbS, 
iUUC.UoAK,  ICOM,  lecc.UJFU,  JEIKSK,  IB  (5)  , JFIX(  10  t.NSULUO)  . 

2NLAM0A  ( 10)  , IESTaM  S , <t0 , 1 0 ) , I BUS £0  1 5 o , 1 0 ) , 1 BUB  ( 5, 10 ) , IDL8I3  , 10)  , 

3 11  STAR  (AO,  10  ) , lb  10  I2,*uj)  , IbBNU  (200  ),  12BN04200) 

CCMMCN  EiXUll^l,  XUB(12*)  , o (OO  ) , AUO)  , Y ( 60)  , YTE  HP  (60  ) , uSUM,  UPRQQ  , 

1 OY  , Ct  ,CF, A,  I0NAMI  u^pZl » N ARE  (2  0) , NT  EM R ( 20  ) , SUM  I NF , MST AT , 

2 lUiiJtlkCrtPi  IyIN,  I VCiUT  t 1 TCNT,  INVFRC,  I TRFRU  , 1 TS 1 NV  , IFFE  L , 

3 JooLP,NRUA,NCCL,NELt.M,NETA,NLELEM,NLETA,NUEL£Mf  NUET  A , 

A lt(  loUO), 1A  <30o),LE(2i>2)  .LA( 122)  , K 1 NO AS ( 1 22 ) , JH(60) 

CC  1CCC  I -1 ,NL  IN  K 
NTEMP  ( I ) = lB'JicUl  l ,K,J) 

IF  ( I ESTAk  i l,K,J)  .GE.  IBUBd.J))  GC  IG  200 
" AUL  OR  oRaNCh  u,N  BlJ  IU  LIST 

I PL  L - Lti  i.L  * 1 
ie  ic<  l . ibll  ) = i 

IuIDl 2,  IBlL  ) ^ J 
IB6N0  ( IbLo  > = IbLIB  ( 1, 0) 

IZBNCdbLL)  = IZcAR 

2 C C IF  (MEHP(l)  . Le  . IBLBd.J))  GO  TC  SOG 
I AUL  LukN  BRANoH  ON  8IJ  TC  LIST 

IBLL  = IbLL  + l 
I 3 I C ( ltIBLL)  = -I 
i e i c < 2,  iblli  = o 
I GBNC ( IbLL  ) = lo  Lb  ( 1 1 J ) 

UBNO(IBlL)  = UcAR 

: keVISE  UCUNCS  UN  BIJ  FOR  FCfiwARO  BRANCH 

5 CC  IF  ( I ESTAk  ( l,K,j  ) .LT.  I BUB  (I , J ) ) leuBd.J)  = I B ST  AR  I I , K , J ) 

IF  (MEMP(l)  .01.  JdLB(liJ))  1BLBII.J)  = NTEMP(l) 

1CCC  CCNT I RLE 

CC  1SCC  1-1  , NL  INK 

IF  ( N TEMP ( I ) .LI.  IBLBII.J))  GU  TC  2000 
1SCC  CCMIMt 
R ST  AT  = i 
R E TLS  N 

rORwAFC  cRAiNLh  OOHINATEC 
20 CC  R S T A T = 0 
RETLRN 
ENC 

SOBRcLTliit  BtKlhK 

PACkTkAOKS  IN  A L LOCA T 1 CN—  VARIABLE^  SEARCH  TREE  TC  LOCATE  NEXT 
PRCFlblNo  Noll  TC  Be  EXAMINtC.  LA  ST- IN-F  IR  ST-OUT  (UFO 
SELECTION  K.Lt  CSEu. 

IMPLICIT  kAl*‘i  ( A , C , E-H , C » P» R— k » t)  » REALMS  IB,0,X,Y), 

1 INTEGER**  (1-N.G) 

INTEGER**  UbTAk  , l E10,  iBbNO  , 1 iBNO 

CCMMCR/bLUCKj/  rlaMCAI 3,20, lU  ), 2NAUT( 20,10) , 2 J BARI  10)  ,Nl INK , NSUB  S, 
1 1 l INC  , I lo A* , IUCM , 16Ll,NJF IX, JF1 ASM,  1B( S) , JFI X<  10  ),NSOL(  10)  , 
cNLAMCA  I i j ) , IBSIAKI  i ,40, 10)  , I BJS  El  1 !>  ,<*0, 10)  , I BUB(  S , 10  ) , 1 8 L B l 3 , 1 J ) , 


I 


CCcPLE  PtcLlSlCN  cllCujl 
REAL  AIjujI 

CCFMCN/OtULM/  l)FP  Ar>  I l 122  I i Kt  VbNC*  1 NCvAL  , ICOL  , LI  STL«  I VAl  , I Jl  R , 

I ..PI  VCT,IPTVP£,RCCST,  IFEAS,  I PAST  (122).  INCUMBU22), 

Z 1 VtJNCl  ‘JJ o)  , Ivllil  5GC)  1 1 (JliND  ( buC) 

CCMFCN/llulio/  KLAFCAlb,2U,iJ  i.  ZNAU  T ( tO  » 10  ) > Z J BAR ( 10 ) , NL  INK.NSUoS, 

II  ZINC  , IZO*k.  , iuLM, IslL  JFi  xSFfIBlb»,JFIX(10),NSOLliOI, 

2NLAMCA  Ilw)  , IOSTaM  5,AJ»1gJ  , I BUSED  lb  .40.10)  , IBUBl  b,  10»  , IblB  ( b , 101  , 
JiZSTAP(*»u.iU,  its  IlI  I2,20o  ) , IBbNU  12LU  )>  IZoNU(ZLO) 

COFMCN  tmiBliZZli  H'JJUZlI  ,olfeU  , XI  to) , Y(60»  , YTE  HP  ( 60  ) , USUM,  CPRUD, 

1 u»  , UI.CP.  A,  IlivAMI  12  2 id  , NAME  1 1 0 ) t N T EM F ( 20 ) , SUM  INF , MaT AT , 

2 lliOJ  i iKlViF.  I yIN* I V JUT* 1 TCNT » INVFRU  , I T RFRU  , 1 Ti  I NV . IFFE  l, 

.1  jL  ULP « .yko  * i NCUL  i NElcM  t Nt  I A f NLE  LEM  , NL  ETA*NUEL£M*NucTA* 

A It  l 1UOI  , It  lb  OoJ  t LEl2a2)  .LA<  122)  ,KI NBAS l 122),  JH(oO) 

TEST  nMETHER  SJBFaUoLEM  J WAS  FEASIBLt  (IFEAS  = 1) 

IF  UFEAa  .ti».  11  CL  IJ  50 
NP1  = MINK  ♦ 1 
INCVAL  = - 1 uOOU 
INCCMBll)  = -IwwO 
DC  IC  L = Z.NPl 
. INCLF 9 IL i = iOoOG 
NP1  = NP1  + 1 
DC  20  L - NFl.NLUL 
I INCCMBIl)  = "i 


IBJSEClL.K.Ji)  GO  TC  500 


RcKRlTE  OVER  KTF  REGION 


SC  LL  = NSOtlsiI 
NEK  = LL  + 1 
CC  55  1 = 1 tISLINK 

S5  IBUSECli  ihimJl  = I do  TAR  ( I > New  t J ) - INCUMBII+1) 

IF  (LL  .tC.  OJ  bb  TC  lOUO 

C CCF-PA*fc  Nc»  SULUTUjN  IN  SLU  J WITH  PREVIOUS  SOLJTiUNS 

DC  5C  C N=i  »LL 
CC  2l  C L = 1 f fvL  1 Nk 

IF  ( I ELoLU  ( L »Ucrt  t J ) ..It.  IBJSEU(L,K,J))  GO  TC  500 
2 CC  CCNTINUl 

C NEK  SbLLTIUN  SAFE  AS  KTh:  CHECK  if  NEW  region  includes  kth 

CO  3CC  I=i,NLlNK 

IF  l I ESTak 1 1 ,K ,j)  - lBSlARl I *NEK,  J)  ) 100 , i CO , 500 
3 C C CCNTIMl 

C NEK  htolLN  INCLLLES  kth:  RcKRITE  uVER  KTF  REGION 

DC  ACC  I = 1 *NLINk 

ACC  IUSTAhll  iNhI  = lBaTAKl I *N£w. J) 

N T£  F P ( 2 ) = K 
P E TC  A N 

5CC  CCNTIME 
C 

C NEK  SOLL I ICN  blFFERa  FROM  ALL  PREVIOUS  SOLUTIONS 

1CCC  NSCCIJ)  = NEw 

IZSTAF  INc,.,  j)  = INCLMb(i) 

NTEFFUJ  = New 

RETLRN 

ENC 

SLBROITINE  lMoRaM  j,K) 

c 

C ERANChlS  ON  aLlCCATIuN  VAR  1 A EL  tS  BIJ  IN  SUBPROBLEM  J 

C * * 1*****DE  SCRIP ) IlN  OF  HARAME TtkS***»*»** 

C J = PAKAMtTtP  INCtXlNb  SJuPRCBlEF  IN  WHICH  BRANCHING  IS  OuNE 

C K = PAKAMclEK  INDEXING  A PREVIOUSLY  EXAFINEO  ALLOCATION  IN 

C SUbPhliBLtM  J.  The  CURRENT  ALLOCATION  IN  SUBPKUBLcM  J IS  TO 

C BE  FIXll  AT  THE  kTh  LEVEL  FOLLOWING  THE  BRANCHING  PROCEDURE 

nil 
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I i 


tit  1 . 
2441  . 
tii>  . 
C44J. 
ttit  . 

2 4 4 ■> . 
2 4 4 u . 
2447. 
c -»4  j . 
244V  . 
245  J. 
2451  . 
<452 . 
245J  . 
245-, . 
2^55. 
<4  50  . 
2^5?- 
<453. 
2 it '1 . 
tiij. 
24  el. 
24fc2  . 
titl. 
2l iti  • 
2 4 fc  '3  . 

2 itr>  . 

2 4c  7 . 
2 i . 
<4fc  7 • 
247J. 
till, 
ti  12. 
2 4 7 5 . 
tilt  . 
tilt  . 
tilt, 
till  . 
2473. 
till. 
24  fi  J • 
2461  . 
2 4 52  . 
tiEl. 
2 4 84. 

i'lti. 

2 480  . 
2487 . 
t i 8 *3 . 
2.  i E 1 • 
t i SO  • 
2 ^ *9 1 - 

2452. 
24S1. 
2 *lS4  • 
tilt, 
tilo. 
til  7. 
<4S8. 

2453. 
2 50';. 


CL  21 C K-LL,ivCCL 
2 1 C INCCPiMk)  = l 
IEEAS  = i 
RETURN 
tNC 

SUSRCUTINl  PiSAcR(  Jl 

c 

C CHECKS  It-  lP-oP  1 IPAl  uuAL  MULTIPLIERS  JUST  OBTAINED  IN 

C SOCPRuULtM  J ARc  DISTINCT  FkCM  PREVIOUS  SETS  CF  MULTIPLIERS. 

C IF  DISTINCT,  sTLRLS  NEW  MULTIPLIERS  ASSOCIATED  WITH  LINKING 

C CONSTRAINTS. 

c 

IMPLICIT  kl«L*s  (A,C,e-H,C.P,«-*>,Z>  , REAL*8  (B,0,X,Y>, 

1 IN  TfcGfck  *4  ( l— N, U) 

lNTEoER*<  «oH,KINtAS,LA,Lfcr  IA,  IE 
INTFG  ER*2  lZSTAk  , 1 C ID, id UNO, I ZBND 
OCUBLE  PRECISION  EUOUOJ 
RcAL  A ( >oC  ) 

CCMMCN/dlULk/  lTulZe.ZTulPv.zTcCST, ZTOLR  J , ZTCLSM  , CR'J, QMA.gBA.UFI , 

1 Ce  u , CbL , wA  » wPl , .M I,Ci,Ul,UF,ON,CU, NKMA  X , N t M AX , cB,wC, 

t wc  , F , Cl  , wU  , JR  , W M , C G , NT  PA  A 

CCPPCN/DlUCksZ  RLaRCAIS.lU,  101 , ZN AU T ( zO , 10 1 , ZJdARUul  ,NL  I NK  , NSUb  S, 
1 IZ INC  , I LEAK , I uCM , lOLL.NjF IX, JFI XSP,  IB  I si , JFI XI 10I.NS0L (id , 

2NL  AMO  A (lot  , ibSTA  R l 5,4U,iO)»ldUSED(5,4L,iO),l EUbl  5 , 1 J i , I OL B ( s , l J J , 
3IZSTAR(«,0,ic),lo  1J  (2,eUoI  , 1 33  No  1 2 CO  ) , I L 8ND  I 2CU ) 

CCPMCN  E,ALE(l22i, AwO(i2Z),ol6U),X(E0),YI60) , Y TE PP <60 ) , uSuM, CPKJO, 
1 JY , D E , OP , A , ICNaMI  122,2  I , N APE  I till  , N T EM  F ( 20  I , SUM  I Nr  , MS  T AT , 

c IUUU,1NC«P,  I V In, IV OUT , ITCNT , INvFRC.  I T RFRO , I TS IN V , IFFEZ, 

3 JOUEP.NROh, NLCL, NELEM.NETA  ,N lE LcM , NLE T A .NUELEM ,No ET A , 

i (cl  1 CO J 1 , 1A ( 300) ,LE(25c) ,LA( 1221 .KINBASI122I , JHloOl 

LL  = NLAMJAU) 

IF  (LL  .EC.  U ) oli  Tl  LJUO 

C TEST  ir  lPTIMAL  UUAl  MULTIPLIERS  DISTINCT  FROM  PREVIOUS  SETS 

DC  ICC  K = 1 , L L 
DC  50  I - 1 , N L I N K 

IF  (JAcslYli  + I)  - R L AMJA ( I , K , J I ) .GT.  ZTOLZE)  GU  TO  10G 

5C  CCMINLt 
RETLRN 

ICC  CCNTIf.CE 
C 

C NEC  MULTIPLIERS  UioT INlT i STORE  THEM 

1CCC  LL  = LL  M 

CC  1 1 5 C 1 si,  (CLINK 
I 1 5 C RLAPC*  li ,Ll  ,„J  = S N C L (Y l I + 1 1 ) 

UP  = > ( iuo J ) 
a - N L INk  ♦ i 
DC  12CC  I-L.K 
lcCC  CP  = CP  - Y ( I ) *6 ( i ) 

ZNACT  (Ll , J>  s SNGL(CP) 

NLAPOMj)  = LL 

RETURN 

END 

SURRDLT  I lit  sAVekIJJ 
C 

C S T C P o ALL  C LA  TICK  AND  SULJTIDN  INFURMATICN  FOR  SUBPRCBLcM  J 

C 

IMPLICIT  kEAl»i  (A  ,C  ,E-m,C,P,R-R, L ) • RE«L*8  Ib,U,X,Yl, 

1 I ME  u ER  *4  (l-N.C) 

I NT  EG  ER*2  JH, K IN  BAS  ,LA, LE, U,  It 
INTEGER*2  I PAR  I,  IlcLLMb,  1 VbNO  , I V ID  , I CbNJ 
INTEGER*..  iZoT AR , I E U, IBbNO, I ZbNU 
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! 


2 ■ i >. 

23S  3. 

< 3c  l . 

1 28  i . 

< 3 E 3 . 

2 3b  * • 
<3?>. 

< 2 c6  . 

2 33/. 
2 if  3 • 
tic  ) . 
2380. 
2381  . 
2 3 S . . 
2383. 
2 388. 
2 3 8 j , 
2 3 S ■ j . 
2 JO  7. 
2 38  3. 

< 3 S > • 

280  J. 
2 8 C l • 
i803  . 
580  3. 
2 8 C 8 . 
<806. 
28Co . 
<80/  . 
<8C  3. 
<80/. 

281  J. 
2811. 
<812. 
2813. 
ini'.. 
.81). 
<8  U)  . 
<81  7. 
<813. 
<810. 
<8  - J. 
2821  . 
2822  . 

< 8 < 3 . 


8C 


:l 


ec 


L L - N Fu  is  — K 

uC  8 j T =1  ,LL 

0 1 K ♦ 1 ) = JBLlIkHsIIiJ)) 

0 C mC  I-i,NKLis 
Jt-  ( I 1 - l 
KINEASII)  * 1 

L L = N F uw  + l 
CC  6C  I'll  , NCOl 
KINEASII)  = J 
ITCNT  = u 

1 NV  PR  <1  - hi<L« 
hETLPN 

ENC 

SLBROL  ri.'lc  ucT  Lii  Ol  J ) 


CCRPAklS  CukkeNI  AlLuCATIUN  IN  SLBPROBLfcM  J WITH  PREVIOUSLY 
EXAMII8EL  Al  LUOA  T ICNs  IN  OKUtR  TU  DETERMINE  AN  INITIAL  LuaER 

sound  ui\  int  maximal  object i vc  value  in  subpkcblem  j, 

CC  P P lsPuNl  1 Nu  TL  CjKKtNT  ALLCCAT  ION 


implicit  aEAl*-*  l A , C » E— H , Q , P , K—  >1 1)  1 RE  AL*8  IB,U,X,Y), 

1 1 N T Lu ck  *8  (I-N.C) 

INTEGcR+2  Jh,  iL  IN  BAS.lA.LE, IA.lt 
INTEGER**  IaakTi  INCLMBtl  VoNJ.  IV  10,1  CBND 
INTEGER*^  I 2 6 T AK  , I c lu, IB UNO, I 2BNO 
DCLBlE  PkcCiolLN  cliuJjl 
REAL  t (50u) 

CCMMN/oLulK2/  UFP ART (122 ) ,RE VoNO.INCVAL, I COL, LI  STL. I VAl, IjIR, 

1 N PIVOT, IPTYPc.klCST,  IFEA3  , I PART  1 1 22 ) , I NC  JMB  ( 1 <2 ) , 

2 I VBNLluOO)  , IVlDlSOCl  , I DBNO  (300 
COMMCN/oLUlNa/  J\Li\MCA(6,<.J,L0)  , ZN  AU  1(20,101  , iJBARUO!  ,NL  INN,  NSUt>  S, 

II 2 INC , l.oAK , 1 DOM , I BLl.NJF IX, JFl ASM,  IB ( 3) , JFIX( 10 ),NSOL( 10) , 
2MAM0A(  1 j)  , I os  I A* ( 5,8  J,  10)  , IBUSEU  (5  ,80,10)  , I BUB  I 6,  10)  , IOLBO  ,10)  , 
2I7SIAM8U,  101,  lb  ID  (<,200  J , IB6NU  (2C0  ) , I 26N0 ( 200 ) 

CCMMCN  L,ALB(l22l,XLlB(i22l,B(o01,X(60J,Y(6U»  , Y TE  MP  ( 60  ) , OSUM,  OPRUO, 

1 JY , C t , UP , A, ICNArt( 122,2) .NAME (20) , NT EM H 20 ) , SJM I NF ,MST AT, 

2 luBJ  , UCwP,  IVIN,  I vJJT  , IT  CM,  1NVFRQ,  IT RFRO , I TS I NV , IFFc  2, 

3 uC uL  P ,iNRu n*  A Cll  , NE LEM , Nt  T A , N Le  LEM , NLE  T A ,'MUELE M t No ET A , 

8 IE*  1 ll J ) , I A ( 300) , Lb ( 232)  ,LA(  12 2 ) , K I NB AS ( 1 22 ) , J H ( oO ) 

INCUMe(i)  = -lCuuO 
kSTCRE  = 0 
LL  = N sul  ( J ) 

IF  (LL  .cl.  l)  k ET  CRN 
NEW  = L.  ♦ 1 

jtAHCH  pkcvilJs  Allocations  for  best  lo«er  bouno  on  2 j 


< 8.  8. 

OC  ICC  8-1, LL 

< 8 < 5 . 

IF  ( I NC  jrt  13  ( i ) .Ob.  I2S7AK(K,J))  GC  TO  100 

2826. 

LC  50  I'l.NLlNK 

<82  7. 

IF  ( I ELscu  ( I ,8  ,J  ) .oT  . I B S I Ak  l I ,N£ri  , J ) ) GO  TC  100 

2 8 2 3 • 

ec 

LCNTINl. 

<8.1. 

C 

U I J * 6'  IsIH  OlJ  LibOJ  JPOATE  INtJMo(l) 

< 8 3 3 . 

INCURS ( I ) ' 1 2 s T AK ( A , J ) 

2 8 ; 1 . 

kstcke  * n 

28  3 3 . 

ICC 

LCN  T I NLc 

1 - * 

2 8 j 5 . 

C 

(J 

2 8 38. 

C 

kSTCkl  INll At 6 IFE  PKtVIJJSLY  EXAMINED  ALLOCATION 

c 

28  35  . 

C 

GREATcSl  lJkEP  BCoNiJ  ON  20 

<836. 

IF  (KSToKt  .u.  l)  RcTJRN 

28  3 7 . 

Ul  2lC  I = 1 ,NL 1 Nn 

<833. 

<cc 

1 N C C k t ( 1 8 l ) = losr Ak(I rNEw.J)  - I Bo Sb 0( I , KST CRE , J) 

283  ). 

LL  = Ml, ,k  8 1 

—J 
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<313. 

DC  40  L 1 - 1 • NL 1 Nk 

<310. 

IF  ( 1 ESTAk 1 i ,LPi ,J  ) .oT.  ItJaT  Ak  ( I ,K  , J ) ) GC  TC  600 

2 32). 

4 C C 

CCNTTM.E 

t - c 1 • 

C 

lL6l  aomINST  LUnEk  buUNCS 

2 322  . 

DC  45C  1-1, MINK 

2)2  3. 

IF  ( ! E S T Ak (1 , L P 1 ,j ) .LT.  1B05ED U ,K  ,J ) ) GC  TC  600 

<224. 

4‘C 

CCNTIM.C 

2 225 . 

C 

2220 . 

C 

AClcGAlUN  DOMINATED 

<227. 

I OCR  = 1 

222'). 

RMLRN 

<2  29. 

C 

2320. 

6 C L 

CCNT  IML 

2231  . 

H.CC 

CLNTINLE 

2232  . 

C 

<33  3 . 

r 

A L L c 0 A 1 UN  NOT  OGMlNATtL 

2 334  . 

ICCM  " K 

1 3 2 •» . 

PETCRN 

2 236. 

ENC 

2)3  7. 

SCBRCLTINt  H/UaTA(J) 

2233. 

c 

2 2 2 . 

c 

LC  706  0 A 1 A rok  iudPRbbLEM  J INTO  APPROPRIATE  STORAGE  LuCATIOnS 

<346  . 

c 

FOR  SOLUTION  OY  SCBRUOTINES  NORMAL  <LP)  AND  8AND8  (UP) 

2 241. 

c 

2342. 

IMPLICIT  KtAL*4  (A  ,C,t-H,C,P,R-*«,2)  , REAL*  8 (6,0,  X,Y), 

224  1. 

1 1nU/Ek*4  ll-N.U 

2244  . 

INTEGER*/  jH,KINEAS,LA,lE,IA,1E 

<346  . 

INTEGER*/  I < 6 T Arv  , I EIC,  168N0,  1 28ND 

2346. 

1NTECER*/  IAj.LAS 

234  7 . 

DGCELE  Pk t C 1 S I lN  tllOOO) 

224  ) . 

REAL  AUOO) 

2)4^. 

CCMMCN/bLUCK3/  KlAROAI o , < 0 , 1 0 ) , 2NAU7UC , 10 ), ZJBAM 10) ,NL INK , N80o S, 

222  J. 

1 1 /INC  , U6AF. , ID  CM  , IBLL.NJF  I A,  JFI  XSM,  18  ( 3)  , JFI  X(  10)  ,NS0L(10)  , 

2 2 61. 

2NLAMDA  (,U»  , III  STAR!  6,4.1,10)  , I 80S  EC  ( 5 ,40 , 1 0)  , IBUB1  6,  10 ) , 1 8L  B ( 3 , 10)  , 

<352. 

3 I 2S7Ak(4j, 10) , lb lo (2,200)  ,I88N0  (2  00  ) , UBNO  (200  ) 

^ 3 i. 
<364. 

1 tip. 

< 3 66  > 
2367. 

< 3 53. 
2363, 
236 ■)  . 

2 36  1 . 


CCRkl  N/b/ULiW  ai  Oil  <0,10  I , X06S  (20,  10)  ,AMATRS(  1000 ) , R HS ( 10, 1 C) , 
lNRCkS(lu),NOLLSllG),JFlK6Tlil),lAS(1000),LA$(20,  10) 

CCMMCN  E»XCb(i<2)»X0bli/<:),6(60),X(fc0),Y(<iC)  , YTE  MP  ( 60  ) ,uSUM,  OPROl). 

1 UY,CE,0P,«,  IU\AM(  i//»<.),NAMb(20),NTEMP(20)»SJM(NF, MST AT, 

2 1 J d j , i k L»»  P r lViN,iVOoT»ITCNT,lNVFKU*lTRFhG»ITSlNV»IFFc2, 

3 JOULP»NrU*,M.OL»i'IELEM»NETA  , N It  LEM  , NL  E T A , NUELEM  , NjETA  , 

A ItUOw  J),  l A 1500)  ,LEl232)  ,LA{  122)  ,K  INB  AS ( 1 22  ) , JH160) 

NCOL  - NCOL S ( J ) 

NRl.  k = Nku  K 5 1 J ) 


2)62. 

NELEM  = Jr  1 k oT  1 j + 1 ) “ JFIRST(J) 

<36  1. 

LL  = JFlkiT(J)  - 1 

23/4. 

C 

lOAl  A,IA,  lA,XLb,XOB,B,oh,KINBAS 

2366. 

CO  10  I=1,NLLLM 

2 3ba. 

A ( t ) < AM  A Tro  l lc  + 1 ) 

< 3t  7 . 

1C 

I A I 1 ) = IA3(LL+i  ) 

< 363  . 

DO  20  K= i , NCuO 

2363. 

LA(K)  < c»a(K,J) 

2 370. 

XL8  1 K ) = Ac  b it  A,  J) 

2371  . 

2 C 

XC9  < K ) — Xcoo(k,J) 

< -72. 

LA(NCCL+i ) - NcLcM  + 1 

2 2 7 1 . 

6(1)  = u. 

<374  . 

LL  * N 6U*.  ( J ) ♦ l 

2 3 7 > . 

DC  3C  I - 1 , N L I N X 

< ) 74  . 

K = 1 ESI  AR  ( 1 ,U|  J) 

2 37  7. 

2C 

8(1  + 1)  =<  t t.oA  I (R  ) 

2 3 7 3 . 

K = NLINr  ♦ 1 
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c 

c 


KUMl  Bid'S  Ilf  NEC t j S A R Y ) TO  INTEGER  VALUtS 


i 


FT 


(l  ■ 


; £ 6 7 . 
ci  S-’. 
£256. 
/ £ ft  ) • 
?<ll  . 
2 E ft  2 . 
E E ft  )• 
E E ft  « . 
£ it  5 • 
2266 . 
EE  t 7 . 
£ £ ft  9 . 
EEft'T. 
22  70. 
<<71* 
2 272  . 
dli. 
7 1 7 A • 
E £ 7 5 • 
EE  76 . 

1 2 7 7 . 

2 2 7 B . 
EE  79. 
£iCO. 
22E ! . 
2222  . 
2 2 2 3. 
£ £ 8a  • 
22  ft  5 • 
E E ft  6 . 
E Eft  7 . 
E 2 GO  • 

1 £ 86  . 
£ £ 6 3 • 
£•.61. 

2 262. 
££63. 
£c64  . 

226  5 . 
£ £66  • 
226  7. 
2268  . 
2 266. 
2 2CO. 
E3C 1 . 
22C2  . 
2203  . 
2 2C4. 
23C5  . 
£ i C 6 . 
22C7. 
23C8. 
2 JC7  • 
2210. 
M f311. 

y 2 i 1 E . 

C 2 213. 

2 316. 
221 J. 
2 215. 
2217. 


dlC 


SiC 


ssc 

sec 

fcCC 


LL  = NP-Or.  ♦ 2 

KK  = NLINn  * i 

NRCCNC  ~ u 

CG  6C  C i~i rNLlhft 

L'SLM  = urPART(I*il  ♦ u.Jl 

00  SIC  j = u iNCl!  iKK 
OSCY  = Oivft  ♦ CPPARTiJl 

1 SCR  = iulNMUsoPl 

IE  (liCM  .to.  Cl  uC  TO  360 
NRCUC  - 1 
00  S5C  11  = 1,  IScri 
ICCL  =1+1 

L.°  = CPPAF  1 UCLL  1 
CC  SEC  J=LL,NCU  ,NK 
If  (OfFAKf t J1  .Lc.  CP)  Go  TO  dEC 
CP  = CfPAKT (d) 

ICCL  = J 
CCNTINCt 

IPAkT(lLuL)  = IP  AH  1 ( ICOL 1 ♦ 1 
Of  PAR  1 ( ICUL  1 = u. 

CCNTIM.L 
L L = LL  * 1 
CCNTINOt 


C Install  NE*  INCjmgenT 

OC  66C  J=l  ,NCUl 
66  C INCCPe(o)  = IPAKT(d) 

RETLRN 

END 

StBPCLTlNc  CGMCHM  v ,M 

c 

r CCPPAr\Li  CURRENT  ALcuCATIJN  (PROP  SUBROUTINE  ALOCTE)  aITh 

C PREVIOUSLY  EXAMINED  AlLOCATICNS  IN  EACH  JNFIXED  SU8PR06LEM 

C TC  OtTtRMlNE  If  CPT.  SOL.  CORRESPONDING  TC  CURRENT  AlLUCaTIoN 

C IS  fLKLACY  XNLaN  fuK  ANY  SOdFRCBLEM 

C*  * **»***££  SCP-I  PT  Icn  uf  PARAMETERS******** 

C J = PAKAMfcTtR  iNUtXlNG  FIRST  SLBFRCbL  EM  FOUND  FOR  KHICrl  uPTIMAL 

c solo i ion  corresponding  tc  current  allocation  is  alreaoy 

t MiUd  N l Cu  TP  l T ) 

C K = P Ah  Aft  T CR  INOtAlNG  Toe  PREVICuSCY  EXAMINED  ALLOCATION  IN 

C SJOPRcOLcM  _ r.HICh  LEADS  TC  SAME  OPT.  SOL.  AS  toGULD 

C CURRENT  AlllCATIlN  IuOTPuTJ 


C 

IMPLICIT  M L AL  *6  < A ,C  ,E-H » C* P » R-K , £ I , REAL*8  (9,D,X,Y), 

1 1 N T t Gtk*4  (I-N.C) 

INTEGER*2  l 2 S T Ak , 1 1 10, looNO,  I EoNO 

CCPPCN/BLUCKj/  RLAKLA1 d, £0,101  , EN AO T ( 20 , 1 0 I , ZJBARUuI  ,NL1Nn,  NSU3  S, 
II  ft  INC  , IioAK  , iUcM,  I ELL.NJF  IX,  JFI  ASM,  IblSl  , JF  I X ( 10  I.NSULUo)  , 

2NLAM0A  »lu J , IBSTaRI S,  AO, 101 , I 80S  ED  1 5 ,40,101,1 EJBI 5, 10 ) , IbLB l d , lo 1 • 

2 US  TAP  (4u  , 10)  , H.  10  <2,  £00  1 , IBBNu  (ECO  I,  UBNOIEOOI 
OC  1CCC  o=i,NSOos 

IF  (JFIX(J)  .GI.  01  ou  TO  1000 
IF  (NSCL101  .tc.  01  GO  TO  100O 
L = N SCl  I J 1 
LP1  = L + 1 
CC  SCC  N=i,l 

C TeSI  ALLOCATION  AGAINST  UPPER  BOUNDS  OF 

C oIuJNkTmSCL.  CFsOBO 
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w 


2 196. 
219  7. 
219  3. 
2193. 
2 2C J . 
22C1 . 
2202  . 
2203. 
22C6  . 
2203  . 
2206  . 
22C7 . 
2208  . 
22C3. 
2210. 
2 2 1 1 . 
2212  . 
2213. 
<.216  . 
2215. 
<216. 
2217. 
2211. 

2219. 

2220. 
< 22 1 . 
2222. 
<223. 
2 226. 
2 225. 
2226. 
<227. 
2228 . 
2 2 29. 
2230. 
2231  . 

2232. 

2233. 
2 23  9. 

2235. 

2236. 
22  3 7. 
2239. 
2 <39. 
<<60. 
<26  1. 
2262. 
2263. 
<266  . 
2265  . 
2266. 
2 26  7 . 
2263. 
<269  . 
22  60. 
2 2 61. 
<262  . 
2 263  . 
< <66  . 
<265. 
<266. 


ITEMF  = ITtFr-  + N 
5CC  CCNTINLc 

lA(NCCL»11  - NtLtM  ♦ 1 
I 1 S IN V - 69699 
(NVFRC  = NnCw 
PETLRN 
ENC 

SLBRCLTiNc  ItbU 

TESTS  lP-UPTIMAL  SULOUON  TU  MASTER  PROBLEM  FOR  FATHOM! NO  AT 

current  node  in  allocation-variables  search  tree,  if  not 

FAT Fuivit_ B , hounds  cP-OPTIMAc  ALLOCATION  TO  OBTAIN  AN  INTEUER- 
FEASIBLE  ALLOCATION. 

IMPLICIT  KEAL*6  IA  ,C,t-H,G,P,K-K,Z)  , RcAL*«  (B,D,X,Y), 

1 INT  fcLEk#6  U-N.L) 

INTEGER*/  JH,KINtAS,LA,L E» I A, IE 
INTEC  EF*Z  IPAxT, INCLMb, I VEND, IV  ID ,ICBND 
INTEGER*..  I Z ST  Ak  » I 1 1 0 » I 8l.N0  , I ZB  NO 
OCLPl.E  PPtCIilLN  fc(lcOO) 

REAL  A ( 600  ) 

CCMRLN/bLutK/  ZTLL  ZE.ZTULPV, ZTCCST, 2T0LRJ , ZTCLSM ,QRO, QMA, UBA ,QFI  , 

1 LtO,  OBL.OA  ,0PL»  gM  I,GZ,Ql,aF,oN,QU,NRMAXtNEMAX,QB,wC, 

2 ct  ,UF,6L,(JC»LR»UM  ,CG»NTMAX 

CCMRCN/bLLCKz/  DFP  ARTIU2I  , RE  VbNO  , I NC  VAL  , I COL , L l STL , I V Al  , 1 01  R, 

1 N PI  VcT, IPTYPc.RLCST,  IFEAS,  I PART  (122),  INCJMBU221  , 

2 1 Vo  NO ( 5 Ju  ) , I V I U ( 5001  ,IGBNU(  500) 

CCMN.  N/BLuCNb/  KLaMLAI  6,20, 10)  , ZNAUK  20, 10)  , ZJBARl  10)  ,NL INK. , NS JB  S , 
1 1 ZINC  , IzbaR  , lOUM  , I ELC.NJUX,  JFI  XSM,  IB(  5)  , JFIXI 10  l.NSOLHO)  , 

2NLAMDA ( 1 u ) , IBbTARI 5 ,6u,10) , I BUSED (5  ,60,10) , I BOB! 5,10) ,IBLB(5,10)  , 
3IZSTAR(6c,1l>,  IbIu (2,200 J , IBoNO  l<  CO  ) , I ZBNO  12  CO ) 

CCMMCN  E , XL B 1122) , >Ub(122) ,BtoU  ),X( tO ) ,Y(60)  ,YT£MP(60 ) ,OSUM, OPROO, 

1 DY  , L c , OP , A , ICNAMt  122,2)  , NAME  l<0)  , N T EM  F(  20  ) , SUM  I Nf  , MSI  AT  , 

2 1 Ub  J , I RLb  P , IvIN.I  VCJOT,  1TCNT,  INVFRQ,  ITPFRO  , I TS  I N V , IFF  E Z , 

3 JcULP  ,NRun,  NCOL.NE LcM.NET A ,NLELEM,NLETA,NL'ELEM,NOfcTA, 

6 let  1000), l A (500) ,LE(252)  ,LA( 122) , K I NB AS( 1 22 ) , JH ( oO) 

CP  = MlUbo)  + zTULZt 
INCVAt  = IDINT(DP) 

IF  (UF  .LT.  l.)  INCVAl  = INCVAL  - 1 
IF  (MSTAT  . cw.  lN)  INLVaL  = —lOCOC 
TEST  FOR  t-ATnLMINo 
IF  (INCVAL  .lc.  1 Z INC ) RETORN 

COMPOTE  lNTEccK  AND  FRACTIONAL  PARTS  OF  EACH  ZJ,  BIJ 

DC  LUC  J= 1 , NLUL 
IF  (KlNbAsijl)  60, 60, oO 
6C  OFPART(o)  = c. 

I PAR  I ( J ) = (LINT (XLB( j) ) 

GC  TC  100 
6 C DFP AR  T ( j J = 0. 

I PAP  T (J)  - 1 L I NT  (Xlli(J)  ) 

LC  TC  lOc 
ZC  I = KiNoAblo) 

DP  = XI)  ♦ zTLLZt 
I PAR  I ( J ) = IDIMIOF) 

IF  (OF  .c  f.  o.)  (PAkT(J)  = ( PART ( j ) - 1 
K = I F ART  to) 

DFPART(J)  - X(  1)  - flOAT  ( K.) 

ICC  CCNTINLfc 
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2125. 

3 I Z S T A (=  <40  , 3 6 ) , id 10  U.lJU  ) , IdoNO  (2  CO  i,  I28NC(2CG) 

< 1 1 5 . 

CORRCN  t » XLC  IluJ  , AGO U 22)  ,d(6u)  , X < 60  ) , Y(60l  .YTE  RP  (60  ) , OsURl,  DPRUU 

* 127. 

1 GY,lc.,GP,A,  ICuAMl  122,4.1  , NAME  (20)  , N TERI F < 20  ) . SUM  1 NF  , RIs  T A T, 

2 133. 

2 iudjfIRCnP,  IvIN,  l VUJI  , I TCiyT  , INVFKQ,  I T RFRO  , I T S I NV , If  1-6  2, 

2 1 3 3 . 

2 JC  jLk.IVKun,  MuL.^tLcrf,  Nc  I A ,N LcL 6M , NLc T A , NUE Le M , NJE T A , 

2 149. 

4 lei  ICCO  1 , lA  (500)  , Lc(2  3<l)  ,LAi  122)  ,KtN8 AS< 122) , JH(oO) 

2 141. 

NRC*  * NlINx  * l 

2142  . 

8(1)  = 0. 

2141. 

C 

IN'TAcl  RhS  I-JR  (.INKING  CONSTRAINTS 

2 14<* . 

00  10  1=2, Nriuw 

L 141  . 

ITERF  = Id(l-i) 

2 1 4o  . 

1C 

8(1)  = 6 Lc A 1 1 1 TtMP  ) 

2147. 

C 

CuRPoTt  NRCo.NLUL 

2141. 

OC  IOC  j=  i.  , NsJ  cS 

2149. 

NRC*  = Nkua  + NLAMLAIJ) 

2 159. 

ICC 

CCNT  I NLt 

2151. 

2152. 

C 

NCCL  = \*G»  4 N:>Ud£*(NtINK4l) 

2 153. 

C 

INSTALL  SL  ACKS 

215  4. 
2155. 

C 

OC  20  C 1= i , NRG* 

2156. 

A( 1)  = 1. 

2157. 

L A ( I ) = 1 

2153. 

I A ( I ) = 1 

2159. 

KINeAS(l)  = 1 

2ic:. 

Jh(I)  = I 

^161. 

XLB ( 1 ) = 0. 

2162. 

2163. 

C 

2CC 

XUB ( I ) = ICCOU. 

2 164. 

c 

INSTALL  2 j , c I J COLUMN.,  FOR  LNFIXEO  SUBPRCBLEMS 

2166. 

NELER.  = NRC» 

2 165  . 

ICCL  = NKOk 

2167. 

ITERF  = nlINu  ♦ 1 

2163. 

00  5CC  J= 1 »I\SJBS 

2169. 

NELER  = NEctM  ♦ 1 

2 1 7 J. 

ICCL  * ICll  ♦ i 

2 171. 

A(NELER)  = -1. 

2 172. 

IA(NELEM)  = L 

2 1 7 j . 

L A ( ICCL)  = NcLtM 

2174. 

N = MA.3JA(o) 

2175. 

OC  3 1 C N=i,N 

2 176. 

NELER  = NELt'M  4 l 

<17  7. 

A(NELER)  = 1. 

2173. 

1 I = ITsrtP  4 K 

2179. 

1AINELEM  = 11 

216). 

3 1 C 

8(11)  = ud  L c t 2 NAuT  In,  J) ) 

2151. 

I I = ITdRIP  4 1 

2182. 

K INGA  £ ( ICul  ) = I 1 

2163. 

kINBaSUI  ) = J 

2 1 c4  . 

Jh( II ) = ICLL 

213  3. 

CC  35C  1 = 1 , N l ( NK 

2 166. 

NELER  = Nt  L t R 4 1 

<167. 

ICCL  = ICuL  4 1 

2 163. 

LAI ICCL)  = NllEM 

<189. 

AINELERJ  = 1. 

2 1VJ . 

1MNELEM)  = 1 ♦ i 

2151 . 

CC  33C  x=l , N 

2152. 

NELER  * NtLtR!  4 l 

2 153. 

A(NtLER)  = -RLAMOA ( l.K, J ) 

2 154. 

2 21 

IA(NFlErl)  = 1TERIP  4 k 

2 153. 

3 5 C 

K I N t A £ ( ICUL)  = o 
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<0  7**. 
<C7t>. 

< L 76  . 
2C  77. 
2179. 
2 17‘J. 

iceo. 

2Cfcl. 

<ce2. 

<C83. 
21H. 
2ces. 
2 C t6 . 
2C87. 

2cea. 

<Ce3. 
2 CcO  » 
cCSl  . 
<CS2. 
2C  = 3 . 
2CS6. 
2CS&. 
2CS6  . 
2CS7. 

<c<?9. 

iCV9« 
2 ICQ. 
2 1C1  . 
2 1C  2 . 
2 1C  3 . 
2 1C  . . 

< 1 C 3. 
2106. 
2 1C  7. 
2 1C*. 
< 1C*. 
<110. 
2 111. 
<112. 
<IM. 

< m. 
2116. 
<116. 
2 117. 
2)19. 
2 1 10. 
<12  0. 
2 121  . 
<122  . 
<12  3. 
2 126. 
<126. 
2 126. 
2 1 < 7 . 

< 1 < 3 . 

< 12  0. 
210  1. 
2 131. 
2132. 
<133. 
2136. 


GO  TC  fc  7 s U 
. Ot  = XLoU) 

C LL  = LA|J) 

KK  = LAI J*i  1 - 1 
DC  B8CC  1=1.1, KK 
18  - 10(11 

2 Y ( IP  1 = Y ( Ik  1 - A(  1 J*ilt 

: ccmiru 

CALL  FTnAn(l) 

COLL  iFiFTr(.i,<) 

SC  l V L MAiTcR  PkCetcM  AS  lp 
: CALL  NCkNaL 

TbST  Fok  (-0113  0.9  160;  RCJNo  bIJ'S  TO  GET  IN  TEGch-f  fcA  S loLfc  SCL. 
CALL  lESli 

: If  1 I 6C  v«  L .lc.  1<INC1  RETURN 
ICCL  = Nrtuw  6 1 

COPP-Tc  Ik-tuoNL  On  060.  v Al . IN  JNFlXcG  SUBPROBLEMS  FOR  oSE 
IN  SJLPhw  t"L  1 9 SELECTION  KJLt  wkcN  IPARM  = 1 
DC  IB  J=i .NicBS 
IT  (JflxlJl  .cl.  o ) GO  To  lb 

I = K I N b A S ( 1 COL  1 
ZJEAR  ( J)  - SNuLl  Alii) 

• ICCL  = 10CL  ♦ NlINK  *■  l 

INSTALL  nc>  allCCATIoN  IN  1BSTAR 
1 0 I P = Nr.o  * + 1 
DC  21CC  j=l»NsLdS 
IF  ( J F I a ( J 1 .OT.  0)  OG  TO  2100 
LISTL  = NsLl(j)  ♦ 1 

00  20  J C 1 = 1 1 No  Ink 

I I e S 1 A P ( 1 1 c 1 s II  u 1 - InCJMBI  lo  Ik  « l I 
1GIR  = 1 o I k + i\L  In  K ♦ 1 
CC  <<CC  I = t, NlINK 
IP1  = I + 1 

IF  (IKCj9d|]Pl)  ,tv.  J)  GO  TO  220L 
OC  2 1 SC  J=i,NSoBS 
IF  ( JF  1 a ( J 1 .ul.  0)  GO  To  2idU 
L I S TL  = i.dLL  1 J 1 ♦ 1 

IBS tAR ( I ,L  IjIl  ,J  1 * IdoT AK< i ,lI STL, J)  ♦ INCUPBIIP1) 

II  = IcST  Ak  ( I ,l!  ST  L , J)  - IdoB(I.J) 

IF  (11  .Lc.  0)  oO  1C  2400 

1 BSTAP ( I ,C  ISlL ,J 1 = IbOb(I.J) 

INCCRE tIPl)  = II 

: CCMIMt 
cCN  T I Ncl 
R E T(.p  A 
END 

ScBRCl T INC  L 09 ST R 

Lo/Ca  o A 1 A Fok  PASTER  PRUdLEP  INIC  APPROPRIATE  STORAGE 
LOCATIONS  l-U  SCLoTION  BY  SOERCOTINE  NORMAL 

[MPLICII  acAl*a  (A  ,C,c-H,C,P,R-k.  2)  , ReAl*B  (d.O.X.Y), 

1 lMcuck*4  (I-N.g) 

IMECt#*.  wi-i . K In  d A S > L A . L c . I A > I E 
I M LL  fc A*<  IaSTAR  , 1 e lo, IbdNOt 1 2b NO 
CCCBlE  PAcLldiUN  t(100O) 

R F AL  Albuol 

CCMPCP/dt-oCKJ/  KLAPCA1 d. 20. 10) . 2NAJT( 20, 101 . 2J8AM 10)  , Nl i NK , NSUb S , 
1 1 2 INC  , Iloak , (COM , IBLl.NJFIX.JFIasM,  1B(6),jFIX(  10 1 ,NSUL ( 10) , 

2M  AVI  Mlul.icblAKl  S.io.lO), IdJSEOIi  .hO.IO) ,i  EJbl  5.10).  IdLdl  a . lo)  • 
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2 Cl  i . 

ill'*. 
2CI5. 
cC  lo. 
id  7. 

4CI0. 
iC19. 
2 C i ) . 
cC?l  . 
2 C42  . 
2C2  3 . 
4 1 24  . 
--  C 2 > . 
4.045  . 
iC  i 7 . 
2CZ3. 
iCi'y. 
iCl'J  « 

;c  ji  . 
4C32  . 
2C3i. 
2 C 34 . 

1 C3‘3  . 

4L35  . 

2137. 
il  31. 

2 C 3 *7  . 

1 C **  3 • 
it*  1 • 
4 L42. 
2L4J  . 
2C44  . 
4L45. 

2 C4o  • 
1C4  7. 
itA3. 
it  A ) . 
2Ct  J . 
it51  . 
iCSZ  . 
4C53  . 
it  54  . 
? C55  . 
2C56. 
4 C5  7. 
4C53. 
4C59  . 

;tto. 
itti . 
2CC2. 
2Cti. 
;ttA. 
4 C fc  5 . 
i C fc  D . 
4Ct  7 . 
i 1 7 3 . 
i 1 1 9 . 
4 C 73  . 
4C7U 
2L72. 
2C73  . 


C KtUPUMlZtJ  START  i No  FRLM  PREVIOUSLY  OPTIMAL  SOLUTION 

t il.t.,  oLM  CALL  LuMblx) 

C 

IMPLICIT  KtAL*-.  (A,L,t-H,C,P,K-l»,4)  , REAl*8  (b.G.X.T), 

1 JMfcGck*4  ll-N,g) 

INTEGfcH»4  Jh.KitiDAi.LA.LfcjlA.lt 
INTEGER*-  IRAK  I , In L CMC . I vbNO . 1 ¥ 10 , 1 CBKD 
INTtLtt<*2  I 4 iT  AK  , I t lu » l ObNU.  I 4.DNU 
UCCPCE  PhtClilCN  fc  UjluJ 
REAL  M ‘JU  \j  I 

CCMMCN/dlULK/  4.TCL  it.LTuCPY.LfCCST,  l TOL  ft  J . 2TCL  SM  , CKO.  UMA , Gfl  A , OF 1 , 

1 wEC.Cdl,  UA  , «Pl,uMI«OZ.wI,UF,LN,UU,  NR  MAX  . N t M Ax  . 06. uC. 

2 wc  .w  h- . UL  t UCI . wR  . UM  . UG  . NT  MAX 

CCMMlN/uLoLK../  uFPlRT(l44),KfcVoN0.INCvAL,ICCL,LISTL.IVAL,IUlR, 

1 NPI  VCT.IPTYPfc.RCCST,  IFEAS,  l PART  11  22),  1NCUMB(122)  , 

2 1 VbNL(50J)  , I VI  ui  50  U , ICHNOi  DOC) 

LOMCN/oi  otrj/  M a Ru  A l D , 1 0 , 1 J ) , 2N  AUT(  20 , 1 0 > , ZJBAR  (10)  , Nl  INK , NSJB  S, 
1 1 ZINC  , Ui>AK, 1DCM , lcLL.NJFiX.JFiXSM, 19(D) , JF I X ( 10 ) , NSOL ( lU) , 

2NLAPLZ  liw)  . IbSTAM  5 , AO, 10) , I DUiEO  <5  ,40.10) , I fcUbi  5, 10 ) . I DC D l 5 , 10)  , 
3IZSTAP(ao,  1l) , lb  10 (4,400) , IBdNU (2  CO  ), IZbNO(ZOO) 

COMMON  c.UctU.),  X0UU22)  ,B(60),XIfc0  J,  Y(60>  , YTEMP(60)  ,oiOM,  OPR  JO, 

1 JY.Ct.oP.A,  ICNAMl  122,4), NAME (4  0) , N T EM  H 20  > , SUM  INF  , MIST  A T , 

2 iooj.ikOwP,  1 vIN, I VUoT, ITCNT, 1NVFKU, ITRFRO , I TSINV, IFFt Z. 

3 JCOLP  NCoL,  NtLEM.NcTA  , N LE  LEM , NLE  T A , NUE  Lfc  M , Nue  T A , 

A It l ICOU),  [A  (500)  , Lfc ( 254 ) ,C  A ( 142)  ,KlNbAS(l44)«JH(60) 

C lfc  NlC  fc  S i AP.  V , LLAc  OATA  FOR  SOLUTION  JF  MASTER  PKOBLtM 

IF  (IFAin  .Lw.  U CALL  LOMSTR 
icc i - Nau»» 

CC  50  J = i .NjUbS 

IF  ( JF  IX(  v.  ) .o  t.  0 ) 00  TO  40 

1CCL  = 1 lUL  * 4 

C INSTALL  ElUNUj  CN  tJ  COLUMN* 

XLE(ICCl)  = -IOOlO. 

xcenccL)  = loooo. 

t INSTALL  DlJNOS  CN  olJ  CuLUMNS 

CC  3C  1 — 1 » N l INK 
I CC l - Ilcl  ♦ 1 
II  * I Ecb i 1 , J ) 

X L E ( ICCO  = PCOAU  ID 

I I = IfcJoi i , j) 

3 C XUfi ( ICCl)  = FLOAT ( II) 

GC  TO  5* 

t INSTALL  dLlNOS  CN  CuLOMNS  ASSoCIATtO  wl Th  FIXED  S J BPkodL  fc  MS 

AC  K = J f IX ( J ) 

ICCL  = IcUL  *•  l 

II  =■  IZbTAR (K, J) 

XLei ICCL)  = ILlaTI  II) 

XUb ( ICCl ) - XL  1 1 Ic  CL) 

DC  45  I - i , NL INK 

ICCL  = I LUL  ♦ 1 
II  - ItLD(l.j) 

XLEI  ICCl)  = FLLAT III) 

25  XUE (ICCL)  * XLfci  lcCL) 

5C  CCNTINCl 
ITCNT  = o 

IF  (IFAp,  .fcu.  l)  OC  TO  90 
CALL  SHF  TR  ( 1 , 3) 

CC  SCCC  J- 1 , NcCL 
IF  (K  IN  BA  * l J)  ) to  ou  ,6/00, 9000 
fcfcCt  tfc  = XL6l*> 
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w« 


* 


I'ltl. 

XLtMICti.)  - Plca  T i A I ertP  I c 7 ) 

If  ( K INbAS  ( ICul  1 .11.  j)  GO  Tu  lu  CO 

1SLA  . 

KINEASliLLL)  = -1 

lr.i-3. 

NTEPF  ( 3 J = i 

1SE6. 

c 

\c.t  7. 

1 (J  c c 

ItriCUI^ru  = -IV  iUtliU  ) 

1 S 5 J . 

IVENC  ILlSlt  I - •JlHU) 

ICPNC  (LI.)UI  - - IulOV 

1 stO . 

c 

lcti . 

c 

Jri Alt  X 

i t 2 . 

IF  (MErfPU)  . cw . tJ  RETURN 

CALL  ‘HHMlul 

CC  9CLC  j=1,NCCl 

ills . 

II  (K  ILvAS(o))tcu0tti70JtV00v 

i*:t6. 

tfcCC 

DE  - KdU) 

1<6  7. 

GC  T C F7bt. 

1UJ. 

E 7 C C 

CE  = 7L1.1JJ 

t lie 

LL  = l A l J ) 

1£7C. 

K K = L A 1 J+ 1 ) - i 

]'7l. 

GC  «8(C  I-Ii.kK 

1 72  . 

is  * iauj 

tree 

Y(l«)  = Y l IK  i - At  I J *L»t 

1 S ?*♦ . 

*>c  c c 

CCM  INLt 

1 S 7 5 . 

CALL  FTkANll) 

1C?0. 

CALL  IHrrMj,(l 

1 S / 7 . 

HtKM 

1C  73. 

c 

IS 7** . 

c 

NCCL  I A 7 hLM  Et>  s CPuATE  VaR.  BUCNCS  , 

1 *"■  E J . 

it.CC 

I CC  L a IvJCIUSTl) 

I «i  (■:  l . 

IF  (ICCl  .lT.  CJ  GC  fo  2100 

c 

1 £.  8 1 . 

MERF  ( 1 ) = IVbNulL  ISIL 1 

1MT«. 

IF  IK  1 Nl>A  j ( ICO  LI)  l C i \j  r 2 ubG  t 2 0 b C 

lxda . 

it  1C 

MfcRPli)  - l 

1 •>  8 6 . 

CP  = XLollLCL)  - Attil  ICUL ) 

1 S 8 7 . 

GY  = FLOAT (NTfcMP U ) ) - XJbtiCOL) 

1 £ 8 3 . 

IF  ICI  • l I - GY)  K i Ft  A o l I COL ) = C 

KdO. 

2CtC 

XCBiICUi.1  “ i-LLATt  NTCMPI  i)  I 

i S C .)  . 

bC  1C  SjuG 

i£Sl  . 

c 

1 *»  *w  J • 

; ice 

ICCL  = -iCOL 

l*.**i. 

NTtYPll)  = IVSNUlLlSTL) 

l'.£. . 

IF  IK  IXbAbl  iCuL)  ) ci30,2 1 10, 21SC 

ICS  J. 

* 1 1C 

MfcFP(j)  = i 

lCCo. 

GY  = MuUi.lL)  “ F ICmTINTEMPU)) 

ICC  7. 

CP  = XCbt  ItbL)  - XLEIICOL) 

ISOS. 

IF  (Cl  .cT.  uYI  islMASI  ICGLl  = — L 

1 CC1). 

2 lit 

XLtMICCU  a FLCaTI  MtMPl  1)  ) 

cCC  J. 

c 

^ CC  l . 

KCC 

Lisle  * L 1 S T L - t 

ECC2  . 

GC  1C  CO 

i CC 1 • 

c 

2CC4. 

ENG 

iCcS  . 

SOBPLClliit  AlCiCT  cl  LPAk) 

iCCS. 

r 

7(.C  7. 

( 

SCLVtJ  FAiltK  p'KCtlLEM;  REALLuCATeS 

<C01. 

( 

CM  Ialu  oCUl’Kijb  l EMo 

tCC‘1. 

C*»<#*»**j;tSLKlHl  KN  Ul  PARAMETERS******** 

<C10. 

c 

It-AF  = I’AKAF.LTtF  1 .Yu  I C A 1 1 N v»  AFlETFfcR 

icn . 

c 

UtLIY  laPLIlUlY  SOL  Vc  c SINCE 

i c u* . 

c 

jLLjTit.lt.  IF  NOT  IIPAK  = 1),  l 
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ICOL  INDLXES  okANCHlNu  VARIABLE  CHCSEN 
1 l) lk  INcIcATeS  BRANCHING  DIRECTION  CHOSEN 

ACC  OPPOSITE  uIRfcCTION  TO  LIST 
L I STL  = LISTl  ♦ 1 

IF  UCln  .EC.  -1)  IVBNOl  LISTU  = 10  IN  T t XL  B l I COL ) + aTOLaE) 

IF  ( I C Ir,  .tc.  i>  1 VBNO(EISTl)  = 1 Cl  NT  ( X Jtt ( ICCL ) * ATOLAc) 
IVID(LISTL)  = IUIR*icOL 
ICfiNC (LISTL ) = IVAC 

tvtVlcE  BCJNOS  cN  BRANCHING  VARIABLE  FOR  FORwARO  DIRECT luN 
IF  IlCIk  .Ev.  -i  I XL61I0GL)  = UBLE(REVBNO) 

IF  (ICIk  .tv..  1)  XEclICJL)  = Jolt  (REV  UNO ) 

PETLR  N 
END 

SLBPCLTInt  EXTRA*. 

E A CRT  a AC  Xi  Tu  SELECT  A PROMISING  (uNFATPOMEOJ  NOuE  FRuM  THE 
LIST  OF  STlREO  NODES.  LAlT- IN-F  IRST-OUT  (LIFO  SELELTIUN  ROL E 
IS  EMPLOYED. 


IMPLICIT  REAL9  A l A ,C  ,t-H , 0 , P , R-R  , 2 ) , REAL*8  (B,I),X,Y), 

1 INTcGtR*A  (I— N,C) 

INTEGERS  JH ,K  lNeAS,LA,LE 1 1 A, IE 
I NT  EG  ER*A  I PART,  INClMB.I VbND , I V I C , I CBND 
CCLBLE  PRECISION  EUuoc) 

REAL  A(boc) 

CCMMCN/aLOLx/  ATUL At, aTOLPV, ATCCST, ATOL R J , 2T OL SM , QRO , CMA.OBA  ,0FI  , 

1 Ut  U , LtoL , Ca , wPL , CM IfCAfCliwF, CN , QU , NRMAX , NEM A a , 06, UC, 

2 CC  , W F » cL  , WO »QR , CM  , OG , N T MAX 

CGMMCN/oLoLaa/  DFP APT  UaZ) .REVBNG, INCVAL, I COL, LI  STL, I VAL , IOIR, 

1 NPi VET, IPTYPE.RCCST,  IFEAS, I PART (122) , INCOMBi l 22) , 

2 IVBNCIbOO), l V 10(500) ,IOBND(500) 

CCMMCN  c,  XUIltJ,  Xcol  122),  6160),  X(fcO),Y(oOJ  ,YTEMP(<jO)  ,dSUM,  OPROO, 
1 LtY.Dfc.  JP,  A,  I CN  AM  ( 12a,  A)  .NAME  120)  , N T EM  P ( 20  ) , S'JM  INF  , MST  AT  , 

i iuBJfiRLHP,  IviN.l VcUT , I TCNT,  INVFRO,  ITRFRQ, ITSINV.IFFEA, 

i JLULP  ,NRUw,  NCll,  NELEM.NE  I A ,MELEM,NLETA,NUELEM  ,NoETA, 

<t  It < 1G0G), 1A (SOU)  , lE(ZSL)  ,LA(  12  a)  ,KINBAS(1Za)  , JH(oO) 

N TEMP ( 3 ) = C 

IF  LiiT  EMPTY,  RETURN  l LU MP CT AT  1 0NS  COMPLETED) 

SC  IF  (LISTl  .EL.  O)  RElJRN 

IF  ( ICENOl L liTL)  .LE.  INCVAl)  GL  TO  200c 


GET  NtXT  NlCE  F R CM  LIST 
ICOL  = IvILIEISTl) 

IF  ( ICCL  .LT.  0)  GC  TO  lOU 


NTEMPll)  = 1LINT IxLbl ICOL)  + ATCLaE) 
NTEMFIa)  ^ IVBNO(eISTl) 

XLB(ICCL)  - XJBIILCL)  ♦ 1. 

XUBtICCL)  = FLOAT  ( MEMP  ( 2)  ) 

IF  (K  INaAS  l ILGL)  .CT.  01  GO  To  ICCO 
N INEAS ( I CUL  ) - O 
NTEMFI3)  - i 
GC  TC  IcOO 


ICC  ICCL  = -ICLL 

NTEMF  4 1 ) = I E I NT (Xcbi  1L0L  ) ♦ ATCLAE) 
N TEMP  (2 ) = IVBNO(LISTL) 

XL 6 ( ICCL)  « XLt(lEtL)  - 1. 
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1830  . 

1831  . 
1633  . 
163  3. 
1 634. 

i e 3 5 . 

183b. 
1 6 3 7 . 
Ib23. 
163  7. 
164J. 

1641. 

1642. 

1643. 
1 £4“*  . 
1645. 
1646  . 
If  47. 
1648. 
1840. 
16  50. 

1651  . 

1652  . 
1853  . 
ie54. 
1 655  . 
16  56. 
165  7 . 
1653. 
16  50. 
It  60. 
IStI  . 
1662. 
186  J . 
1664  . 
1 £ 6 5 . 

1 Get  . 
1 cfc  7 . 
1668. 
1 6 6 -> . 
1 e 7 1. 
1671  . 
1073  . 
167  i. 
1 P?w  . 
1675  . 
1876. 
16  7 7. 
117J. 

1679. 

1680. 
18  81. 
16  62  . 
1 683. 
1684  . 
1685. 
1686  . 
1 68  7 . 
1683. 
1680. 
1850  . 


C CFTEkrtlNt  36  j 1C  VAK.  XIIRUkP)  hllh  MAX.  JP-  UP  DOW  N— PENAL  TY 

DC  49CC  > = l,NP.L». 

If  (Jflll  • Ll  • NI'whJ  Ou  TO  490u 
IF  ( PI  ( 1 J .CT.  PCI  11)  Gu  TO  4oOC 
IF  IPtlil  .Lt.  PEu)  GO  TO  4 90u 
PEN  = POt  1 1 
IRC»P  = i 
I D l f - — i 

MENF  (1)  = 1PAKT  11  1 + i 
PEveNC  - ptCAKNTtPPun 
GC  TC  4500 

4 1 C C IF  IPU1I  .Ll.  P cn  1 GU  TO  4900 
PEN  ^ Pom 
IPCGP  = i 
1C  IP  = 1 

NTEPP  <11  = IPAPT  ll  ) 

REVPNt  = FLCAT INTEMPli)  1 
4SCC  CENTIME 

IF  I 1 PClnP  . C T . o 1 GC  To  49 50 

C EACF  UP-  AND  CUkN-PEnAcTY  .EG.  0.  I OUAL-D  EGEN  EPAC  Y 1 . ChOGSE 

C ANY  NoMNTtGER  tASIC  VAR.  AS  BRANCHING  VAP. 

DC  49 1C  IkLkP=1,NRLW 
IF  (JHlkunPv  .Lt.  NRGwl  GO  TO  4910 
IF  (OFPAtvT  ( IROrtP  ) .C-E.  2T  GLcE  1 GO  TC  4920 
45  1C  CCNTIMt 
4 810  PEN  - FulikCwP) 

1CIP  = 1 

NTEMP(i)  = IPAPT  UPCwP) 

REVBNE  = FLOAT INTfc  Mf I 1) ) 

4S5C  ICC  l = jhURUkP) 

CP  = XllUbu)  — PEN  ♦ cTJLLE 
NTEMP  111  = IDEM (UP J 

IF  (Of  .LT.  c.)  NTEPPU1  = NT  EM  FI  11  - 1 
IF  I I V Ac  .01.  NT  EM  P 111)  IVAL  = N TEMPI  11 
C PRANCri  LN  CnOStN  vAR. 

CALL  EPANOF 

5CCC  IF  ( T C In.  .lG.  -11  1PTYPE  = 0 
!F  (ICIk  .EG.  11  1PTYPE  - -i 
PETLKN 
END 

SLPPulTlNE  EhaNCh 
C 

C TRANCHES  GN  VAk  lABct  XIICOU  AS  CtTEKMINEC  IN  SUBROUTINE  PENcTS 

r 

IMPLICIT  * t A L*  4 ( A t C ,t— H * 0,  P , R—  A , A 1 t REAL*  8 (BtUyXfYl  » 

1 I N T t u tk *4  I I-N,  w 1 

I NT  EC  ER*2  Jh.KlivbA  S.LA.LE  . IA,  IE 
I NTEG  EP*c  IP ART, InCgMo , i VBND , 1 v 1 C , 1 OBNO 
COUPLE  PRtClSlCN  E(cOUO) 

R t A I A<  5uu) 

CCMPLN/BccLN/  aTOL  l t.cTOcPv.ATCOST,  2T0LR  J , L T CLSM  , CRO,  OMA , t«  J A , wF  4 , 

1 GtO, GbL.gA , GPL ,GMI  ,G2  ,ul ,gF, GN.CO, NKM AX ,N£M AX , wB , 0 C , 

c GL , v H • wL , WO , Gk , OM , G G , N T MAX 

CCMPCN/ULL.CK2/  OFP  ART  I it  c 1 , RE  V BNO  , I NO  V AL  , I COL,  LI  STL,  I VAL,  lol  R, 

1 NPI VCT, IPTYPE ,KcCST , IF tAS, I PART ( 1 22 1 , I NCUMBI 1221 , 

c 1 VbNLl  500)  , IVlUl  5cC)  .ICBNDl  500 

CLWPCN  c , XL  c i 1 2a_  1 , X.bil22)  ,3(60)  , X I CO  1 » Y I O G)  , Y Tt  MP  ( 60  1 , USJM , DPRuO , 

1 UY ,Ct ,UP, A,  ICNAMl  122,21 , NAME  12  0) , N T EMF I 20 1 , SUM  INF , MSI  A T , 

2 lObj  , IkCwP,  IV  III,  I VuuT  , ITLNT,  INVFkU,  I T RFRg  , I TS I NV , IFF  E L , 

J JCuLP.Nkuv,, NLOL, NE LEM , NE  T A ,NLE LE M, NLE T A ,NUE L£ M , NUE T A , 

4 1 CL  t luCJ),  IA  (50JI  , LEI  252)  ,LAl  122)  , K I NO AS 1 1 22 1 , JH(oO) 


1 
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1 ?to . 
177). 
17  71. 
1 7 7 > . 
Ill  i. 
1 7 7 9 . 
177?. 
1 7 76  . 
177  7. 
1 77J. 
117  t. 

1 7eo. 

1 7dl  . 

1767. 
176  5. 
1 7 e 9 . 
1 7 5 5 . 
1 ?66  . 
17  5 7. 
1 7 5 5 . 
1 769. 
1793. 
1791  . 
1 793  . 
179  5. 
17  99  . 
1756. 
1 79 b . 
1 76  7 . 
179  1. 
179). 
1 6C>3 . 
1 6 C 1 . 
13C3. 
1 EC  3 . 
1 609  . 
1 1 0 ) . 
lrC  j . 
1 EC  7 . 
1 6 C 3 . 
1 6C9  . 
It  1 J . 
1611. 
16  11. 
lclJ. 
1 E 19. 
1616. 
I (.  1 6 . 
16  17. 

1613. 
1 <.  1 . 
1 6 c 3 • 
le2  l . 
1 6c3  . 
1 773  . 
1 6 <:  9 • 
1 6 1 ■>  . 
1 E7b  • 
167  7. 
167  1. 
167). 


3CC  CP  = ( a»m  Will 

NTEMPli)  = 11JI9T  it?PJ 
C F = CP  - F i.  0 A T ( AT  £AFl  L I I 

IF  (U9  .lL.  AlCLit)  .uR.  IUP  .GE.  l.-tluLZE))  oG  TU  50J 
IF  IY  ( 1 1 . L t . L • I CP  = 1 . - l)P 
IF  (CF  . O I . cF  FAkT  111)  uO  TO  AlC 
06  - > Uv.tJJ)*OFPAR  T(  il/OP 
•oC  T C 370 

5 1C  Ut  - Y(iooJ)*ll.  “ cFP«RTl I ) )/ l 1.  - OP) 

37c  IF  (OE  .Li.  Hullll  Poll)  = Oe 
C 

ECC  CCNmCt 
1CCC  CCATIAofc 

r 

C CoKPoTL  LAKGF.ST  ouMuRY  PENALTY  AND  TEST  FOR  FATHOMING 

PEA  = C. 

DC  7CCC  i -1  iilKCn 

IF  1 J 6 1 1 J .cc.  NKu*>)  OU  TO  cOOo 
IF  (PCI!)  .U.  PtN)  PEN  = Pull) 

7CCC  CCNTIAOt 

CP  = MIuuJl  - PcN  ♦ l TuCct 
I VAL  * I u 1 A T ( l)P) 

IF  (CP  .cT.  0.)  IVAL  = IYAL  - 1 
IF  1IVAL  .01.  INCVAE)  uG  TO  auOC 
1 0 l R ' u 
RETLPA 
C 

C PHOllOA  No  1 FrtTriCMEO • ChECK  FOR  FORCED  BRANCHES  UN  All) 

3CCC  ATEAP17)  - C 

OC  39 C C 1=1 »ARC* 

IF  (J6(i)  «Ct.  NkU  A)  uO  TO  j90u 
IF  (Poll)  .cl.  Poll))  oO  TO  3ou 0 
CP  = XiutsJ)  - PlUI)  + 3TOllO 
NTtAP  111  = idNT  (UP) 

IF  (DP  .lT.  C.)  AlTEAFll)  = .(TEMPI  1 ) - 1 
IF  < A TEMPI  1)  .oT.  INOVAL)  GO  TO  390C 
C fObCLO  uRAACh  OP  ON  All) 

I VAL  = nTOAPI 1 ) 

I C I R = 

MEMP  11 ) = IP  ART  II)  + l 
Go  TC  a 7uc 
C 

jtCC  OF  = > ( 1 o t-  J ) - PUll)  ^ cTGLic 
NTEMPlli  = luIATlOP) 

IF  (Of  ,cT.  o.J  NT t API l ) = NTcMP(l)  - 1 
IF  ( A TEMP i 1 ) .cl.  I Ac  VAL  ) GU  TO  3900 
C FoRCtU  BRANCH  UOaN  ON  XII  ) 

I V A 1 = NltAFll) 

I C I R = 1 

Alt AP  ( 1 1 = IPARI  l l ) 

3 7CC  IRCRP  = I 

I CCL  = Jh ( 1 bUaP ) 

REVEAC  = FLOAT  (NTfcKP'll)  ) 

A TEMP ( 7 1 = I 
CALC  ERANCF 
39CC  CCATIMfc 

IF  ( N TEMP l i ) .GT.  U GO  TO  3000 
C 

C NO  PcRCtC  ohANCHEol  oHULSfc  ERANCHiAo  VAK.  AND  DIRECTION 

PEA  = C. 

IRCvP  = c 
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r 


"r'  -rfvnsvw 


ifcr-r- 


nca. 

1709. 

1710. 
1711  . 

1710. 

1711. 
17  1-.. 
1 7 r> . 
1 7 io  • 

1717. 

1718. 
1 719. 
172). 
1721  . 
1722. 
1 721  . 
172'.. 
t 729  . 
1 72  j . 
1 72  7 . 
1728. 
1729  . 
1 7 JO . 
1731  . 
1 7 J 2 . 
1 7 J J . 
1 7 Jh  . 
1 725. 
1 73a. 
17  it  . 
17  39. 
1 739  . 
1 780  . 
1781  . 
1 782  . 
1 783  . 
1 78-,. 
1 78  > . 
1 790  • 
1 787  . 
1 7 -I  9 . 
1 789. 
1 750 . 

1751. 

1752. 
1 7 5 J . 
1 758  . 
I 7 5a. 
175o. 
1 7 5 7 . 
1 75  0 . 
1 759. 
1 76  0 . 
1 76  1 . 
17  6.'. 
1 Vi  . 
1 769. 
1 769  . 
1766  . 
1 767  . 
1 7c 0 . 


1 


IlLi  (.Let  -.A  t 82l  twM  1 1 W L t w 1 i .(  « *.N  vOUt  NRMAX  t N l M a a t ob  t w C * 
Ll  i m>Li  tL  i jKt  wd  t(,Gt  NTHAA 
Jfp  ART  1 122  1 .rtcWoNU  , INC VAL. 1 CQL.Ll STL, I VAl ,101 R, 
wl'l  vOT,  IPTYPc  .nCcSI,  IFCAa,  1 PARTI  A 22)  , 1 NC  JMUl  122)  > 
t voRoi30u)  > I V 1 u 1 500  tlCbNUI  500 
CoM.plA  tiALulUJ.  AUo(  122)  ,b(ou>  , X(60)  , YloC)  ,VT£MP(60)  .uSUM,  JPRClLi. 
L.V  . lif  . l.V.  A.  I f.r.AM  ( I , ^ ) . NAIfr  <3  ill  . NT  I M f I 2 [I  I . SUM  I Nr  . MS  ) 8 7 . 


IlI'I'CA/liLuLa. 


2 C 


5 C 


nc 

IF 


ti«Li;iu<.ii  AUDU^LiiuiLiOiMcuiinau  jkkl 

OY  ,uc  ,uF,  A,  ICf.AMl  U2.2  1 , NAME  (cO),NTtMF(2U  1 , SUM  1 N<-  , Mi  T A T , 

1 1. 6 j t . R P t i v lo, I Vo  jT  t 1 TCNT  t iNVFROtiTRFR'JtlTalNVtlFFfcOi 
jUllP  , 9»u  , AllL  , NcllN,  NE  TA  ,NLE  LEM.NLfc  TA.IVUELEM  »N Jtl  A, 

U louO)  t lrtl500)iLtlC9e)  iltl  lc2)iKiN8A$(lc2)tJH(Ou) 

III  i-nO*. 


Pill) 
PC  1 1 1 
PGl  I I 
u Li  * 90 

PUiU 
F0<  I ) 
PG<  I ) 


10  I : i t KrtUtt 
( JFFAK 111)  «c 7 
1 . . c 
1 • t c 
L C 


i luUt)  uU  T C 5 


- i 

10 


It  CCNTINll 


Gu  Tu  1006 
.Lt.  L T UL  IE  1 


DC  1 0 6 C J ~ 1 1 NUCl 
IF  l K IF 3AJ 1 J ) ,uT.  O 
IF  ( ( Xl.Ol  J ) - XL bt  J 1 ) 

CALL  LNPACMJ) 

CALI  F I«  Aft  <11 

IF  (KlNuAolj)  .ti).  C)  GO  TO  JO 
CC  20  1 = 1 t NRCn 
Y(  1 I = --Y  1 I) 


CO  TU  100C 


omECk  Fl.k  FckCcL)  bKAOCFl  ON  XJ 
IF  (J  .Lt . Nk.Uk)  jL  To  30 
CP  = XllubJ)  - YliCbJl  *■  2TCL2c 
I V A L = iUlMlOP) 

IF  (OF  .lT.  0.)  IVAL  = I VAl  - i 
IF  (IVAL  .GT.  IwCVAL)  Go  TO  50 
ICIF  = iluiAtl  J)  * 1 

IF  ( 1 C Ik  .la.  —1)  FfcVbNO  = SNuL  (ACS  ( J ) 1 
IF  (ICIn  .to.  1)  Ktwutw  = JNGLlXLElul) 

1 CL  L = J 
CALL  EFAr.ol- 
GC  To  1 1 jl 


CC 

IF 
I F 


5CL  1=1  rAMjA 
( J t- < I 1 . Ll.  iykCk)  Gu  TO 

(Of  FART  111  .L 1 . iTOLAtl 


juO 
Gu  TC 


5UC 


CUMPuTE  UP  PtNALTY  FOR  XU)  t XJ 
ICC  IF  ( Y ( 1 1 .Cf.  -lTuLPv)  GO  TO  20C 

= Y ( Uou  ) *(  CF  PA  F T ( 1 1 - l.J/KII 
(OE  .Lf.  Y(IuOJl)  Ul  = Ylluou) 


Cc 

If 


IF  ( D E .L  T . Pu  1 1) 1 PUl I 1 = UE 


GO  To  300 


2CC 


If 

CE 

IF 

IF 


OCFFjfL  oG*A  PcoAlTY  FoR  Xlilt  XJ 
( Y l 1 J .lT.  irULPv)  oO  TO  JOJ 
= Y ( Iubd)*CfKAR  llll/Ylll 
(OE  ..  T . YllobJU  Oc  » YUObj) 

( G E .lT  . POlll)  Poll)  » dfc 


Compute  gumlky  penalty  for  xiu,  xj 
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— 


■ts. 


(T 


its  7. 
no. 

ito. 

uso. 

jesi . 
ita. 
1(5). 
its*. . 
)65j. 
165o  . 

165  7. 
1 6 vi . 

16b  ). 
1 e6  j . 
lttl  . 
Ice.?. 
1663  . 
1 tt'.. 
1 ‘ft  5 . 
16  6 5. 
1667  . 
16  6 3 . 
166V. 
167  ). 
1 C 7 1 . 
1673  . 
16  7 3 . 

I fc  7 ♦ • 
16  75  . 
16  76. 

I I 7 7 . 
167:1. 
1 C 75. 
1 6 S3  . 
16  El . 
1663  . 
16  6 3. 
16  S'* . 
16  6 5 . 
1666. 

166  7 . 
166  1. 
166). 
1650. 
16  11. 
US3  . 
16s  J . 

Its*. 

lfcSo. 

1656. 

1657. 
1653. 
16  5). 
1 703  . 
1701  . 
1 70  J . 
17u3. 
1 7C'«. 
17C  J. 
1 7 Go  . 
1 7C  7 . 


I V A L = IjIMIUW 

If  (CF  .Lt.  o.l  1VA1  = 1 VAL  - 1 

IF  ( ( 7*  S T A 7 .to.  .ill  .OK.  UMl  .Lt.  INC VAL  I ) Gil  TO  3000 

c 

C uuMPeTE  lNltuEK  AND  FRACTIONAL  PARTS  OF  EACH  eASIC  VAR. 

C 

OC  ICC  l-  l «Nku*i 

IPART(l)  ^ IuInTiAU)  «•  L T QlCe  1 
N T E V F ( 1 1 = IFAKTU  1 

ICC  CFPART(I)  - All)  - FlOAT ( N T fc  M P ( II  J 

c 

C ehcLA  FOR  All— INTEGER  SCLlT  ION 

C 

CC  3C  C I - 1 * ivRCm 
IF  (JF(1)  .Lt.  NkuW)  00  To  3u0 
If  (OFFAkTII)  .ut.  CTOLLfc)  KcToRN 
ICC  CCNT  1 N’Jt 
C 

C joLuUlN  ALL-IHTtOfcR:  INSTALL  AS  NEW  INCUMBENT 

C 

IFEAS  = i 

INCVAL  = I V Ae 

00  1CCC  j - 1 ,NlCL 

IF  <K  lNoAu I 31) fcOC,  7Gu,luOU 

6 C C INCLMcUJ  = iUlNTi XoB(  j) ) 

GC  TO  luuO 

7 C C INCLMaio)  -*  10Ii,I<  ALbl  JJ  ) 

1LCC  CCNTINLL 

c 

DC  11CC  1-1  iNRCk 

ICCL  = JHl  1 I 

I NCLRe < ICGt ) = IPARTII) 

UCC  CCMINLt 
C 

C CJRRtNT  PR  L 6 LEM  NO  LONGER  OF  INTEREST 

C 

EC  CC  MSTAT  = wl 
RETLRN 
ENC 

SCBRCCTiiMc  PfcNcT S 
C 

C CCPPuTtS  TOMLIN'S  irtPROvtd  JP-  ANu  OCwN-P ENAL T I Es  AND  T He 

C COPCRf  PcNAllY  FC K EACH  NONINTEGER  BASIC  VARIABLE.  ALSO  CHECKS 

C FOR  FuR.Ctu  oK  AN  C Fits  UN  BuTh  BASIC  ANO  NONeASIC  VARlAaLtS.  IN 

C TFt  «DStNCt  OF  FCRCCO  BKANCHtS  ON  BASIC  VARIAcLES*  THt 

C tRANuHINL  VAkIacLE  IS  CHOSEN  TC  tE  THE  ONE  WITH  LARGEST 

C ASSCCIAItu  lP-  LR  JOwN-PEHAeTV . THE  FLRaARO  BRANCH  IS  MADE  IN 

C THE  JlRtCTlLN  OPPOSITE  TO  THt  PA Hi  ROM  PENALTY.  THE  NODE 

C CO  RR  t sR  ef\L-l  i\u  Tl  ThE  BRANCH  IN  THE  SAME  DIRECTION  AS  The 

C PAXIMjM  PfcnALTY  1j  AJCtU  TO  IF  E LIST,  TC  BE  EXAMINED  lATcR. 

C THE  BRANCHING  PkLetsa  ITSELF  Is  CARRIED  OUT  IN  SUbROuT INE 

C PRANch,  RH I CF*  I £ LAoCtO  FROM  SLBRCDTINE  PENLTS. 

C 

I MPI  T L I T R t Al  *5  IA ,C,t-H,L,P»k-W, II  • HEAL*B  (B,D,X,Y1, 

1 INfeutr,**  < I— NiU) 

I N T F 0 EF  Jh  , K IN  oA  S , LA  ,Lc  » I a , IE 

INTEGER**.  I PAR  I, IN  COMB , 1 VBNU, 1 V ID  , I CBND 
DOUBLE  PR tC  1 o ION  LUDOu) 

REAL  7(5001 

REAL  FO(oG)  ,PDtbC)  ,PD(60) 

CCMPCF/OLCLK/  VIOL it.CToLPV.CTcLST, ITU'  R J , IT CL SM , cRu. UMA, DBA  , uF I • 
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m 


- ■ 


158b. 
15b/. 
1 58S . 
1583. 

1580. 

1581. 
1580. 
1583  . 
1 588  . 
158b. 

1586. 

1587. 
1583. 
158  ). 
16C0. 
ItCl  . 
16C2. 

ieci. 
1 608  • 
lcC  3 . 
1 £ C 3 . 
1 £07  . 
1603. 
1 £C8  . 
ltlO. 
1 £ l L . 
1 £ 1 0 . 
1 £ 1 3 . 
1 £ 1 8 • 
1615. 
1 £ 1 6 . 
1 £ 1 / . 
1613. 
1 £ 1 8 • 
1620. 
1621. 
1622  . 
1623. 
1628. 
1625. 
i 6 26  . 

162  Z. 
1 6 1 5 • 
lfchS  . 
1 £ 3 3 . 

1631  . 

1632  . 
1633. 
1638. 
16  3 5 . 
1636. 

163  7. 
1633. 
1633. 
168  J. 
1681  . 
1682  . 
1683  . 
1688. 

1685. 

1686. 


CALL  LNPACK (JCCLP) 

CALL  FTRAN(l) 

I  CLl  = jn ( IRcfcPJ 

DP  = (X(lRL*P)  - XLdl  ICUO  l/YUDO*?  1 
GC  TC  2 uu. 

C 

C l t A v 1 No  VARIABLE  EXCctuS  ITS  UPPER  BCUND 

C 

1CCC  CP  = l.Elu 

CC  15CC  J = 1 ,NCCl 

IF  (KINuASIaJ  .Gl.  G)  GU  Tu  150C 
IF  ((XcblJ)  - Xl  b(  j 1 ) .Lt.  £TOl2E  1 GO  TO  1500 
CALL  LNPACMjI 
CAlL  f TrAM  11 

IF  (KlNdASIoi  .Eh.  “il  U C TU  12  CO 
IF  ( Y ( IrtuwF  1 - 2 TULPv)  1 500, 1 22  5 , U 25 
12CC  IF  miKL«P)  ♦ iTOLPv)  1225 , 12l5 , 15C0 
C 

1225  Cfc  = YUcBJl/YlIRUnP) 

IF  < C E - OF)  125c«  IsOO* 1 500 
125C  JCCLP  = j 
CP  = CE 
15CC  CCN  T I NLc 

c 

IF  (JCCLP  .EG.  0)  PET'OKk 
CALL  UPACK  IjLCcP) 

CALL  F Tn.A.«  ( 1 1 
I CC  L = jhl IRCwPJ 

UP  - (X(1im.aP)  - XUdlicJL))/Y(IRORP) 

C 

2CCC  IF  (K INoASIJcULP  1 .Eh.  u)  Ofc  - CP  ♦ XLOLJCCLP) 

IF  (K  INbAil jCUlP J .EG.  -1)  Dc  = DP  ♦ XJB(JCOLP) 

NPIVCT  - 1 

RETLRN 

END 

SLBPGITiNt  TtSTx 

C TESTS  lP-uPTIKAL  S0cUT1CN  AT  CURRENT  NODE  FOR  FATHOMING. 

C FATPuMlNO  OCCURS  IF 

C (11  LP  FRcbLcK  AT  CURRENT  NUCE  IS  INFEASIBLE  (MSTAT  •=  GN)  J UR 

C (2)  lP-lPTIMal  cbJtCTIVE  VALLE  < IVAL)  .LE.  OBJECTIVE  VALJt  OF 

C CjKKenI  INCcMetNT  SOLUTION  I INCVAL)  S OR 

C (3)  lP-cPTIMAL  SGLJTICN  SATISFIES  INTEGER  RESTRICTIONS. 

C 

IMPLICIT  kcAL*8  (A.C.E-H.C.P.R-R, £)  , KEAL*8  (B.U.X.Y), 

1 IN  I E GcK  *8  (1-n.G) 

jh,NlN8A3,LA,LE,  IA,  IE 
INTEGER IP Aw T, INlLMo, I VBNO , I V IC  , l CoND 
CCOBLE  PRtC  i o I ON  c I 1000) 

REAL  <(5uJ) 

CCMMCN/ocucN/  21  Cl  2 E , lT OcP v .2TCCST, 2TCLR J , ZTCLSM ,CkO, QMA , mo A .OF 1 , 

1 GE  0 f h b L f GA  » G PL  y CM  1.C2.G1,  OF  , CN  i QU  , NR  MAX  , NE MAX , CB , GC , 

2 wc  t.F  >hLt  wOfGRthM  .GG.NTMAX 

CCMMCN/bLLCKc/  DFP ART( 12  b) . RE Vb NO,  INCVAL, I COL, LI  STL, I VAl, 101 R, 

1 NPI VC  I, I? TYPE ,RCCST,  IFEAS, I PART (122), INCUM6I 122). 

2 1 V3NC(  5uj)  . I VI  U(  50  C)  .1  OB  NO  ( 50  G ) 

COMMON  t,Xce(.£2J,XuB(122),b(bO),X(60),Y(60l , YTE MP (oO ) ,OSUM, OPROO. 

1 UY .cc.UP.A, ICNAMi 122, b) .NAME (201 ,NTEMF(20 1. SUMINF, MSTAT, 

2 lobj  , IKcwP,  ivliv,  1 vuoT,  1 TCNT,  INVFkG,  I TRFRg  • I TSI N V,  1FFE  2, 

3 JCOlP.NRU*. NCUL, NELEM.NET a .NLELEM.NLcTA.NUELEM.NUETA, 

8 IE ( IccU J , I A (500) , LEI  252 ) .LAI  122) ,KI NBAS! 122). JH(bO) 

DP  * XUUoj)  ♦ 2T0L2E 
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I 


B . 

ft.  i 

i 


•C* 

t— » 

cr 

c 


1525. 

152o. 

1527. 

1528. 
152-7. 
1530. 
1531  . 
1 532  . 
1533. 
15  34. 
1535. 
153o. 
1537  . 
1 55  3 . 
15  39  . 
1540. 

1541  . 

1542  . 
1 543  . 
1544. 
1545  . 

1546. 

1547. 
1543. 

1549  . 
1550. 
1551  . 
1552. 
1553  . 
1554. 

1 550  . 
1 5 5 o . 
1557  . 
1553  . 
1550. 
1 5o0  . 
1561  . 
1 562  . 
1563  . 
1 564. 
156-j. 
1560. 
1567  . 
15c  ). 

1569. 

1570. 
1571  . 
1 572. 
1573  . 
15  7 4. 
1573. 
1576. 
1 5 7 7 . 
1573. 
1573. 
1 5 8 3 . 
1591  . 
1582. 
1 583  . 
1584  . 
1593. 


C BASIC  V Ak 1 A fcL  E CA  kOh  I FAllS  BELO„  ITS  LCWER  oUUNO 

ice  oe  = xibi  icco  - xui 

If  (CE  .L  L . lP)  Go  IC  1000 
IPIYPE  = 0 
GC  TC  230 
C 

C BASIC  v A«  I AbC  E CA  KOw  I EXCEEDS  ITS  UPPER  BOUND 

2CC  OB  = XUI  - XUfcl  1CCC) 

IF  (OE  .Lt.  CPI  Gu  TC  1000 
IPTYPE  = -1 
C 

25C  IRCNP  = I 
1CCC  CCMIMt 
RETURN 
EMC 

SCBRCLTlNt  LCHCZC 
C 

C SELECTS  PIVOT  COLUMN  JCOLP  FCR  CURRENT  CUAL-SIMPLEX  ITERATION. 

C StTS  JCOLP  = 0 IF  LP-PRCbLtM  AT  CURRENT  NCOE  IS  INFEASIoLE. 

C CTFERolSCi  CHOUSES  JCuCP  TU  MAINTAIN  PRIMAL-OPTIMALITY 

C 

IMPLICIT  kEAL*4  (A ,C,E-H,C,P,R-k, i)  , RE AL*8  (B.O.X.Y), 

1 INTEGER *4  (I- N,u) 

I NT  EG  EP*<-  JF. , K In6A  S » CA » L E » I A » IE 
INTEGERS  I PAR  I,  iNCCMb , 1 VbNO  , I V 10 , 1 CBND 
0GU6LE  PRcCIsIUN  E 1 1000 ) 

REAL  t ( 3UC  1 

CCMMCN/bLUUK/  ZTCL  Z £ , ZTULP V , Z TCC ST , ZTOLRJ , ZTGLSM ,QRO, QMA.gbA  ,Uf I . 

1 CEO, wBL.gA.QPLiCM  l,CZ,UltQF,QN,QU,NRMAX,NEMAX,GB,QC, 

2 Ct ,uF,Cl,CC,QR,OM,CG,NTMAX 

CCMM0N/OLUCK2/  OFP  ART U2z 1 ,kE VbNO  , 1 NC VAL , I COL , LI  STL, I VAL, lUl R, 

1 NPl vCT, IPTYPE.RCCST,  IFtAS, I PART ( lc2 1 . I NCUMb( 1 22 1 , 

2 1 Vb NOt  300) , IVIDI50C)  ,IGBND(  300) 

COMMON  k,XLb(12c) • XGB( 122) ,Bt CO), X( 60), YlcO) , YTE MP ( oO ) ,OSuM, OPRuO , 

1 GY , OE , OP, A,  ICNAMI  122 , 2 ) , N AME (2 0) , NTEMF ( 20  ) , SUM  I NF  ,MST  AT, 

2 ICb  J , IRChP,  I VIN,  1 VOJT,  I TCM,  INVFRU,  I T RFRQ  , I TS  I NV  , IFFEZ, 

3 JCULF.NROk, NCCL»NtLEM,NETA,NLELEM,NLETA,NUELEM,NJETA, 

4 IE ( loco  1 , 1A (500) , Lt 1252) »LA( 122) ,KINB AS <1221 , JH(cO) 

C 

JCCLP  - u 

IF  (IFTYPE  .60.  -1)  oU  TO  1000 
C 

C LtAVlNo  VARIAbCE  FALuS  BE  LON  ITS  LGhER  BOUND 

C 

CF  * -I.eiC 
CO  50C  J=  1 » NCUL 

IF  (KINbAjlJ)  .GT.  0)  GO  TO  300 

IF  ( ( XCdl J ) - XL  cl J) ) .LE.  ZTGlZE)  GO  TO  500 

CALL  LNPACMJ) 

CALL  f IRAN (1 ) 

IF  (K  INcAj(J)  ,E0.  -1)  GO  To  20C 
IF  (Y(IRUkP)  * ZTOcPv)  225,223,500 
2CC  IF  IYUKUt.PI  - ZTOLPV)  500,225,225 
C 

225  DE  = Y(lodj)/Y(Iku»>P) 

IF  (Dt  - DPI  3Cg,3C.C,250 
25C  JCCLP  = J 
CP  = CE 
5CC  CCNTINLE 
C 

If  (JCCLP  • tc . J)  RETURN 
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1464. 

1465. 

1466. 

1467. 

1468. 

1469. 

1473. 
1471  . 
147,2. 
14  7 3. 

1474. 

1475. 

1476. 

1477. 
1473. 

1479. 

1480. 
1481  . 

1482. 

1483. 

1484. 

1485. 

1486. 

1487. 
1488  . 
148-). 
1493. 
1451  . 
1482. 

1453. 

1454. 

1455. 
1496. 
1487. 
1493. 
1499. 


1CCC  CALL  INVtRT 
ITSINV  * „ 


1518. 

1519. 
1523. 
1521. 
1522  . 

1523. 

1524. 


lit  At  SIMPLE*  CYCLE 

CHCCSe  FIVCT  HOW  IROwP 
3 CC  CALL  CCh U2R 

IF  (IPCnF  .Cl.  0)  CC  TO  400 
MSTAT  = W8L 
GC  TC  lOu 

CHCCic  PIVGT  COlcMN  JCOCP 
4CC  CALL  CCHJ2C 

IF  ( JCCLP  .cw.  e)  Gt  TO  150 
IVIN  = jCULP 

CPC AT  c 1 CH  T—  HA  Nl  SIuES  TO  REFLECT  NEM  BASIS  RESULTING  FRuM 

CCPPlNI  SIMPLEX  PIVOT 
CALL  LPoETA 
ITCNT  = ITCNT  ♦ 1 
ITSINV  = ITSINV  ♦ 1 

C t C lot  nHtThE  R TC  REINVERT  CiRRENT  BASIS 
IF  ((NELEM  .GT.  5c C£ I .JR.  UTsINV  .GE.  INVFRQI)  GO  TO  1000 

RE  INVERSION  NOT  NtoESSAR  i YE  T i «Rl  TE  OUT  NEV«  ETA-VECTOR  FOR 

CURRENT  SIMPLEX  PIVOT 
CALL  RPETA 
GC  TC  300 
ENO 

SLBRULTInE 


CCHC2R 


l 


SELECTS  PIVCT  KtW  IROWP  FOR  CURRENT  DUAL-SIMPLEX  ITERATION. 
SETS  i ROMP  * 0 IF  CJRkENT  BASIS  IS  OPTIMAL.  OTHERWISE.  I ROWP 
IS  CHOSEN  TC  BE  1HE  RCw  nlTH  GREATEST  PR  I MAC- INFE A S Id IL I T Y 

IMPLICIT  k£Al*4  (A.C.C-H.C.P.R-ti,  i)  , REALMS  (3.0.X.Y). 

INTEGER *4  (l-N.O) 

INTEGER*/  jh . n IN8AS.LA.lE. 1 A , IE 


15C0. 

DGOELE 

PRECISION  e 

1 5C1  • 

REAL  MScOJ 

15C2. 

CCMPC  N/8LUCK/  2TCL 

1503. 

1 

(.EG, 

1504. 

i 

Cfc  « J 

1505. 

CJMFCN 

/0LCCK2/  OFP 

1506. 

1 

NPI 

1 5 C 7 . 

* 

I VU 

1509. 

COMMON 

t . ACD ( 122 1 , 

1509. 

1 

DY .OE.DP. A, 

1510. 

2 

lUEJ  . 1KG*  P< 

1511  . 

3 

JCGLP.NROW, 

1512. 

4 

1 t ( leCU  1 . lM 

1511. 

C 

1514. 

C 

ChGCSt  Ren 

1515. 

C 

151o. 

IRCWP 

= 0 

1517. 

CF  = - 

l.UC 

klTH  GREATEST  INFE AS  IB  I L I TV 


DC  1CCC  IM.NKLn 
IF  (I  .be.  IC8J) 
I CCL  * JHi I ) 

IF  (XII)  .LI. 

IF  (XII)  .CT. 

GC  TC  lcuo 


Gl  10  1000 


(XLB ( ICOcI 
I A 08 ( ICUL) 


- CTUl 2E 1 1 
* 2T0L  2t ) 1 


GC 

GG 


TO 

TO 


IOC 

20C 
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HC3. 
1 AC<*  - 
1*05. 
lACo. 
HC7. 
i4ca . 
1 AGS  • 
1 A 10  • 
1A11  . 
1 A 1 2 . 
1A13. 
1 A l A . 
1A15. 
1A16. 

A 17  . 
1 A 1 3. 
1A1S. 
1A20. 
1A21  . 
1 A 22  . 
1A23. 
1 A2A  • 
1A25. 
lA2o. 
1A27. 
1A28. 
1 A 2 7 . 
1 A 30  » 
1A31  . 
1 A32  . 
1 A 33  . 
1 A2A  « 
1A35. 
IA3g. 
1 A 3 7 . 
i A38 . 
1 A 39  . 
1AA  J. 
1AA1  . 
1AA2. 
1 A A 3 . 
1 A A A . 
1 AA5. 
1AA6. 
1 A A 7 • 
IAA8. 
1 A A 9 • 
1A50. 
I A 5 i . 
1 A52  . 
1 A 5 3 • 
L A 5 A . 
1A55. 
1 A 56  . 
1A57. 
1A53. 
I A 59  . 
1A60. 
1 At  l . 
IA62. 
1 At  3 • 


GC  TO  60UU 
2CCC  IVIN  * JoULP 

CALL  UNPACK  I JCGLP) 

CALL  FTkANU) 

CALL  CPuZk 
CALL  LPdlTA 
ITCNT  = 1 T CAT  ♦ 1 
IT S IN V = 1 T 3 IN V ♦ 1 
IF  (NFIVJT  .EC.  0)  GO  TJ  AOU 
IF  (NELfch  .GT.  5oOU  GO  TO  1000 
..  CALL  MRETA 

AC  1C  IF  (ITSInV  .G£ . INvFRC)  GO  TO  1C0C 
IF  (ITCNT  .GO.  ITRFRC)  GO  TO  6OC0 
GC  TC  13UU 

tCCC  RETURN 
ENC 

SUBROUTINE  BANCO (IN  IT8D) 


C 

c 

C 

c 

c* * 4* 

c 

C**** 

c 


MASTc*  PROGRAM  FCR  8RANCH-ANC-6GLN0  INTEGER  PROGRAMMING  ROUTINE 
ALSC  3ERVES  AS  MASTER  PROGRAM  FOR  REOPTIMIZATION  VIA  OUAL- 
SlMPLbA  McTHOC  AFTER  A FORWARD  BRANCH, 

****OcSCRIPT IGN  OF  PARAMETERS******** 

INITbO  - INITIAL  LOWER  BOUND  ON  MAXIMAL  OBJECTIVE  VALUE  ( INPUT! 
************************************** 

IMPLICIT  Rt Ac*A  (A,£,E-M,C,P,R-Wf Z)  , REAL*8  (8,0,X,Y), 

1 I N TEGER*A  II-N.C) 

INTEGER**.  jH,KINBAS,LA,LE, IA, IE 
INTEG€P*2  I PART, INCLMB, I vBND , I V IC , I CBNO 
COLBLE  PP.cCISILN  tlluuoj 
REAL  #(50o) 

COMMCN/dLCLK/  ll uL  ZE.aTOLPV, ZTCCST, ZTOLRJ , ZTCLSM , QRO, CM A , CBA ,CF I , 

1 CEO, UBL, JA, wPL.CMI.CZ  ,0  I ,UF , CN , OU, NRMAX .NEMAX , CB.CC, 

2 CL. CP, VL, CO. CK • WM  .CG.NTMAX 

C CMMCN/bi-oCKZ/  UFPARTI  122)  , RE VBND  , l NCVAL , ICOL ,L I STL , I VAc , 1 01 R, 

1 NPI vCT, IPTYPt.RCCST,  IF EAS , I PART ( 1 22) , 1 NCUMB l 1 22) . 

2 I vdNJ(buJ)  , IV 1 0 1 500  . 1 OBNO 1500) 

COMMON  b , A L B < i <.£  ) , >UB(122),Bl6C),X(tU),V(6C)  »VTEMP(60)  ,DSUM,  LiPKOO, 

1 uV .CcfOP.A,  1CNAMI 122,2) .NAME  (20) , NTEMP ( 20 ), SUM  INF ,MST AT, 

2 IOBJ.IRLwP,  1VIN.I  VO'UT,  ITCNT,  1NVFR0,  I T RFRO  , I TS I NV  , I FFE  Z , 

3 JUGLP, NRG »,NCGL, NELEM.NET A, NLELEM.NL ETA, NUELEM.NUETA, 

A It ( ItCO), itt (50J) , LEI  2521  ,LA( 122) , K 1 NB AS( 1 22 ) , J H (oO) 

LISTL  = 0 
INCVAL  « 1NUBL 
C TEST  For  FATHOMING 

ICC  CALL  TESTa 

IF  (MSTAT  .EG.  CBL)  GO  TO  200 

C CURRENT  NUDE  FAThuMEO;  BACKTRACK  TO  LAST  PROMISING  NODE  ON  LIST 

1 EC  CALL  E K TK AK 

C IF  LIST  li  EMPTY,  Kt T URN  To  MAIN  (COMPUTATIONS  COMPLETED) 

IF  (LISTL  .EC.  0)  RETURN 

C USE  PRIMAL-MMPLtX  METhOU  FOR  REOPTIMIZATION  AT  NEW  NODE 

CALL  NORMAL 

GC  TO  100 

C CUFPtNT  NOD t NOT  FATHOMED)  COMPUTE  PENALTIES 

C EH  ANCh 1 Nu  AT  CJRRENT  NODE  IS  OCNE  FROM  SUBROUTINE  PENlTS. 

2CC  CALL  FENLTS 

IF  (ICIR)  ACcliG.ACG 


PEINVEK)  CURRENT  BAiiS 
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L 





1342. 
1343  . 

1344. 

1345. 

1346. 

1347. 
1346. 

1349. 

1350. 

1351. 

1352. 

1353. 
135h. 
1 355  * 

1356. 

1357. 
1353. 

1359. 

1360. 
1361  . 

1362. 

1363. 

1364. 

1365. 
1366  . 
1367. 
1363. 

1369. 

1370. 
1371  . 
13  72. 
1373  . 

1374. 

1375. 

1376. 

1377. 
1373. 
1379. 
1360. 
i?ei . 
1262  . 

1363. 

1364. 

1365. 
1386. 
1367. 
1263. 

1389. 

1390. 
1391  . 

1392. 

1393. 

1394. 
1395  . 

1395. 
1397. 
1393. 
1299. 
1400. 
14C1  . 
14C2. 


CCMNCN  *C6(l22)»d(601,X(tol,Y(601  , YTE  MP  1 60  1 ,DSUM,  OPROU, 

1 0Y , c£ , OP, A,  ICNAMl  12c  . ti  1 , NAME  (20 ) t NT  6H  F ( 20  1 , SUM  INF  .MSTAT, 

2 lUoJ,IRC*P,  I V IN,  l V JOT  .ITCNTt  1NVFRQ « ITRFRQ.ITSINV,  IFFfc  2* 

3 jcOLP,NRU», NCUL.NELEM, Nc  I A ,MELEM,NLE  I A , NUELEM  t NuET  A , 

4 UIKul.U  (5C0)  ,lt(252)  .LA  (1221  , K INd AS ( 1 22 1 , JH l dQl 

» 

CC  1CCC  I - 1 ,NRCw 
1CCC  XII)  « X(i)  - Y ( I)*0P 

IF  (NFIvUT  -cU.  11  GO  TO  2000 
K I NB A S ( JC0LP1  = -( FlNbASl JCOLP1  ♦ 11 
IVCLT  = JLtiLP 
RETLKN 

2CCC  X 1 1 RQ  RP 1 = Cc 

IVOUT  = jh(IK0»Pl 
KlNeASlJCLtPl  ^ IRCdP 
K INBA S ( I vOc T 1 = IP  TYPE 
JH(lRCnP)  = JCLlP 
PETtPN 
ENC 

SL8RCL  T INc  NORMAL 

: SERVES  AS  MASTER  PROGRAM  FCR  LINEAR  PROGRAMMING  COMPONENT 

: (REVIScC  PRIrtAL-SIMPtcX  METHCO). 

C SCePOoTINE  AOAPTEO  PROM  LINEAR  PROGRAMMING  CODE  LPM-1,  lkITTEN 

: BY  J • A . TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY! 

IMPLICIT  kt  Ai.*4  (A  ,C  ,E-H,U,P,R-i»,  21  , REAL*8  (B,0,X,Y), 

1 INTEGERS  (I-NtOl 

INTEGERS  Jh,KINtiAS,LA,LE»IA,IE 
INTEGER*,;  IPAkT,  IN ClMB , I V&NO , I V 10  , I CBND 
OCOBLE  PncLlSICN  EUUOOl 
SEAL  tl  5001 

CCMMC  N/dLOCll/  2TUL  2 E , 2 T OL P V , 2 TC C S T , 2T0LR J , 2TCLSM , GRO, CMA.UdA.UFI , 

1 LEO , £BL , OA  , UPL  , CM  I , G2  ,U  l . LF  . LN  , QU,  NRMAX  , NcMAX  , UB,  0 C , 

2 LE  *Lh  »UL»  UC»  LR»  QM ,LG»  NTMAX 

C0MM0N/bLOLK2/  OFP  ART (12 2! .REVdNO , 1 NC VAL , l COL , LI  STL, I VALtlUIR, 

1 NPI VLT, IPTYPE.RCCST,  IFEAS, I PART (1221, INCOMB (l 22), 

2 I V6  NO  (5001  , I VI  01  500  ,I0BND(5001 

LCMMCN  E , XL  til  122 1 , *00(122! , d 1 bO  1 , X(  60  1 , Y(  b 01 ,YTE MP (60 1 , DSUM, CPROU, 

1 UY,Lt,CP,A,  ICNAM1 122, 2 1, NAME (201, NTEMP( 201, SOM  INF, MSTAT, 

2 10BJ,IkUiP,  IV  IN,  IV  JOT,  IT  CM,  INVFRO,  1 TRFRu  , I TS  I N V , IFF  E 2 , 

3 JOuLP  ,nRom, NCOL,NELEM,NETA,NLELEM,NLETA, NUELEM, NUtTA, 

4 lc(iOOO), 1A( 5001, Lc( 252), LA( 1221 , K INB AS ( 1 221  , JH( 601 

IF  (ITS1NV  .LT.  INVFRuI  oO  TO  150C 
1CCC  CALL  INVERT 
ITSINV  = U 

SIMPLEX  CYCLE 

15  CC  CALL  FCP.ML 
CALL  6TRAN 
CALL  FRIlE 

IP  (JCCLR  .GT . 01  CC  Tu  3000 
IP  (MSTAT  .EL.  ul  1 GO  TO  2000 
MS  I AT  = Odl 
GC  TC  tuQC 
2LCC  MSTAT  ^ ON 
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SUBROUTINE  ADAPTtC  FfcCM  LINEAR  PROGRAMMING  CODE  LPM-1,  nk  ITTfc  N 
BY  J.A.  TOMLIN  IGPckA  T I ON  S RESEARCFi,  jTANFORO  JNI VEKSi TY ) 

IMPLICIT  Rt  ALMA  (A  ,C,E-M,C,P  ,R-a,  2 ) , «EAL*B  IB,D,X,YJ, 

1 INTtuERMA  (I-N,Q) 

INTEGER*^  JF,K  INBAS,LA,LE , IA, IE 
OGLELE  PRECISION  tllOOO) 

REAL  21BOU) 

COMMCN/BLuCR/  ZTGL  2 E, 2TGLP V,  2 TCCST*  2TOLRJ  » 2TGLSM  »QRU,  QMA*GBA  ,(JF  I , 

1 LEO,  CBL.gA,  yPL.UM  l,GZ,UI,aF,CN,QU,NHMAX,NtMAX,Qo,QC, 

2 Gt  ,GFi,GL,gO»GR,UM»tiG»NT MAX 


CCMMCN  t,  UEUu  I , XvBU22)  ,Bl*»o)  ,X(fcl)),YI6C)  , YTEMP(60)  ,OSUM,  CPRuD, 

1 UY.CE.CP, A,  ICnAMI  122,2 ) , NAME (20)  , N TEMPI  20 ) , SJM INF , MST AT, 

2 IobJ,IKL*P,  IV  IN, IV JOT, 1TCNT,  iNVFRg, I TRFRQ , I TS I NV , IFFE  2 , 

1 JLUlP.NROw, NCCu, N£LEM,NE  T A ,Nlt LEM ,NLE T A .NUELEM , NufcTA, 

A It ( lOCo  ), I A l SOU) , LEI2D2) ,LAl 122) , KINS  AS  I L22)  , JHloOl 

[ 

: st-iFT  ie  amj  t of  j elements 

NF  = NEMAa  - NLtLEF  ♦ 1 
INCH  = 0 

CC  10CC  I ^ NF.NtMAX 
I NCR  = I NOR  + 1 
IElNLELcM  ♦ 1NCR  } = 1 E ( I ) 

E ( ME  L EM  ♦ INChl  = Ell) 

ICCC  CGNTIME 

1 0 IF  = NEMAX  - NLE1EM  - NUELtM 
NF  = NTMaX  — NoETA  ♦ 1 
l NCR  = 0 

00  2CCC  1 = NF  «N TM AX 
INCP  = 1NCR  ♦ 1 

IEINLETA  ♦ I NCR)  = LE(I)  - 10  IF 
2CCC  CCMINCe 

LEINETA  + U * NEctM  + 1 

RE  TLRN 

ENC 

SLBRCl TINE  OPBETA 

GPCATtS  R1GFT-HAN0  SlUtS  TO  REFLECT  Nth  BASIS  RESULTING  FROM 
CLRPtNT  SIMPLEX  PIVOT 

SLBRuuT  INt  AG AP  1 EG  FkCM  LINEAR  PROGRAMM  ING  CODE  LPM-1,  »k  ITTEN 
BY  J.A.  TlMLIN  (LFERATIGNs  RESEARCH,  STANFORD  UNIVERSITY! 

IMPLICIT  kEAl»a  (A  ,£,E-Fl,G,P,R-l*.  2)  » REAL*  8 (B,0,X,Y), 

1 lMcGEh*A  ( I— N,  0 ) 

INTEGER*^.  jFi  ,N  INUA  S ,LA  ,L£  , IA,  IE 
INTEGER*.:  IPAtvT,  INCwMo,  1 VbNO  , IV  IG.ICBNO 
OCCBLE  PkElISICN  E(1gOg) 

REAL  /(sou) 


CCMMCF/oLLtK/  21  CL  2 £ , 21 CLP V , 2 TGLS T , 2TGLRJ , ZTCLSM , CRO, QMA , DBA ,yp I , 

1 ubo, g£l ,gA  , UPt  * UM  1 , 02  *UI»gF,UN,QU« NRMAX ,NEMAX, gB,GL, 

2 GE , g F , GL , gC , gR , wM  , GG , N T MAX 

C OMMC  N/BLoCKZ/  OFP  Ah T112 2 ) , k t VBNO • I NC VAL , I COL, L I STL, I VAL.1GI R, 

1 NPI vCT , IPTYPE  jRCCST • IFEAS, I PARTI  122  I,  INCJMBl 1221  , 

2 i VBNC(  SUO ) , lvlOi  500  , 1 OBNU  ( SO  C ) 
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SgraBHRESWia'aSOTSE: . : 


1220. 

1221. 

1222. 


CALL  SHIFTRU.j) 


1232. 

1233. 

1234. 

1235. 
12  36. 
1237. 
1233. 
1239. 
1223. 
1221  . 
1222. 
122  3. 
1222. 
1225. 
122o. 
1227. 
1223. 
1229. 
1250. 
12  51. 

1252. 

1253. 

1252. 
1255. 
12  56. 
1257. 

1253. 

1259. 

1260. 
1261. 
1262. 
1265. 
1262. 

1265. 

1266. 
1267. 
1269. 

1269. 

1270. 

1271. 
1.1  72  . 
1273. 

1272. 
1275. 
12  16. 
1277  . 
1279. 
1279. 
1290. 


CC 

If 


5CLC  J-l.NCLL 

IKINoAMJl)  9 60  C i 6 700 1 9000 


1223. 

E6CC 

UE  = >UolJ) 

1224. 

GC  TO  E 7do 

1225. 

t 7CC 

OE  = XLU  t J ) 

1226. 

E75C 

LL  - L A ( j ) 

1227. 

KK  = l A t J + J.  ) - 1 

1229. 

OC  88  C C I = LL ,KK 

1229. 

IR  * IAI 11 

1230. 

E8CC 

Y ( I R > = Y11R)  - A) 

1231. 

SCCC 

CCNT1NUE 

CALL  f THAN  t 1 1 
CALL  5flfTM0,21 

NCFC  = NtLEM  - NfcTA 
NS  IS  = NROw  - NSlCI< 

return 

ENC 

SU8RCL  T IiMc  UNPACK!  IV) 

EXFANuS  CUMPRESSEC  MATRIX  COLUMN 

SL  BRuj  T INc  ADAPTfcU  FROM  LINEAR  PROGRAMMING  CODE  LPM-1,  WRITTEN 
8Y  J.A.  IcMLiN  1 CPERA T IONS  RESEARCH,  STANFORD  UNIVERSITY) 


C4’M*****0ESCkIR7IlN  OF 
C iv  = Parameter 


FARAMETtRS******** 
INDEXING  COLUMN  TC 


BE  EXPANDED 


IMPLICIT  KfcAL*4  1 A ,C , E-H , C , P, R- w , 2 ) , R E AL  * 8 (B,D,X,Y), 

1 I N TcuER*4  1I-N,Q) 

1 N T EG  t R*c  aH,MNcAS,Lm,LE,  IA,  It 
DCU8LE  PkECISICU  EIIUOj) 

REAL  A(aUu) 

CCMMCN/olcCK/  2TuLEE»2TULPV,2TCCST, 2T0LR J , ZT OLSM , CRO, UM«, Ut>A ,QF 1 , 

1 Uc(J , UdL » U a , wPL,i.MIic2f.IfUF,  GN  , QU,  NR  MAX  , NcM  A A , %b,  VC, 

2 wt,Jh,'.L,jUiwR,WM,(.G,NTMAX 


ICC 


2CC 


COMMC  N tfXLol 1a2 ), XU91122) ,9160) , XI 601 ,Y(60) ,YTfc MP160) ,USUM, JPKOO, 

1 3Y ,cc. DP, A,  lLNAMt 122,2) .NAME (2  0) , N TtM P ( 2u ), SUM  INF , MST AT, 

2 IUoJ  fiRLWP, 1 viN, I VUUT , I TCNT , INVFRG » ITRFRG , I TS I NV, IFFt 2, 

i JCcLF,NRUA,NcCc,NELEM,NETA,NLELEM,NLEU,NUELtM,NOETA, 

I c 1 loco),  i A ( 50U)  , LE(2a2)  ,LAl  122)  , K IN8  AS  1 1 22  ) , J H ( 60) 

CC  ICC  1 = l.NRuw 
Y(I)  = j . 

CCNTINUc 

LL  = L A ( 1 V ) 

KK  * L A ( 1 V + 1 ) - 1 
DC  2LC  I - LL , KK 
IR  * IA i 1 1 
Y1  IR)  = A( I) 

CCNTINLfc 

RETURN 

ENC 

SLBRCLT INt  SHF  1 c 

Sue»uuriNt  FOR  INVERT 
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Alb 


! 


! 


1159. 

NELE P * NELtM  ♦ 1 

1 UO. 

IE ( NE  L EMl  * I 

1 161  . 

ElNElfcP)  = YU) 

1161. 

GC  TO  23uC 

1 163  . 

C 

116'.. 

c 

0 ElA  ELcMEATi 

1 165. 

c 

1166. 

*2CC 

I E l NE  LAST ) = 1 

1167. 

E (NELAST  J - Yi I j 

1 163. 

NELAST  = NELAST  - 1 

1169. 

NGELEP  = NLELEM  ♦ 1 

1170. 

t3CC 

COM  I Hit 

1171. 

C 

1172. 

JHURCPP)  = IV 

1173. 

KINEASlIvJ  - I kO*P 

1174. 

NLETA  = NUElA  * 1 

1176. 

lE(NELAST)  = IRGv.P 

1176. 

IF  (J  .NE.  KR1)  bu  lb  233b 

1177. 

E(NELAST)  = YllkOwPJ 

1176. 

GC  TC  2 -> 4 0 

1179. 

22  3C 

E1NELAST)  = 1. 

1180. 

NETA  = NET  A ♦ 1 

1181. 

LE ( NE  T A+ 1 1 = NELEM  * 1 

1 182  . 

234C 

MJELEP  = NbELEM  + 1 

1103. 

LE (N  TL AST  J = NELAST 

1 184. 

NELAST  = NtLAST  - 1 

110  3. 

NTLAST  - NtLAST  - 1 

1186. 

C 

1187. 

c 

LPOATE  RCW  CULNTS 

1183. 

c 

1189. 

DC  235C  1 = I.NRLm 

1190. 

IF  (OAfiSlYini  .Lt.  2TUL2E1  GO 

10  235o 

1191. 

IF  (HPtbll)  .GE.  ol  GO  TO  2360 

1142. 

HR  EG ( I ) = HRcGtl 1 - INCR 

1193. 

IF  (HPEGtll  .GE.  0)  HREG(l)  = - 

1 

1194. 

2350 

CCNTINbE 

1195. 

HREG  1 IRowP 1—0 

1196. 

3CCC 

CCNTIHE 

1 197. 

C 

1 193. 

c 

MERGE  L AM  U ETAS 

1199. 

c 

1200. 

35CC 

NLETA  = NETA 

1201  . 

NETA  = NLETA  + NUE IA 

1 2 C 2 . 

NLE  LE  P -=  Nt  LEM 

1203. 

NELEM  = NLELtM  + NLELEM 

12C4. 

IF  (NtELEM  . cG.  ul  LC  TO  3550 

12C  5 . 

CALL  SHF  Tc. 

1 2C6  . 

C 

1 2C  7 . 

C 

llYbcKt  SlaLKG  FOR  otLETEC  LOLOMNS 

12C3. 

C 

1209. 

3550 

DC  3oCC  1 = 2 1 NR  Cm 

1210. 

IF  (JKII  .Nt.  ol  CL  TO  3oOO 

It  11  . 

JH ( I ) = I 

12x2. 

IRChP  = I 

1213. 

CALC  LNPAbKdl 

1214. 

CALL  FTRANliJ 

1210. 

CALL  FPETA 

1216. 

26CC 

CCNTINLE 

1217. 

c 

1213. 

c 

UPLATt  X 

1x17. 

c 
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u. 


1C43  . 

NSLCK  = NoLLK  + 1 

1C59. 

12CC 

LL  = LAtlV) 

1 ICO. 

KK  = 1 3 l I V ♦ 1 1 -1 

11  Cl. 

if  (kk  .or.  lo  ou  ro  i30o 

11C2. 

1 2 5 C 

IF  IAES(A(LL1  - 1.)  .Lt.  2ToL  Zfc  ) 

GO  TC 

1 1C3  . 

C 

1 ICh. 

13CC 

N L E T A * i\  0 fc  I A ♦ 1 

1 1C5  . 

OC  1 4 C C J = u.KK 

1106. 

1 R = IA(J> 

lie/. 

IF  IIP  ,cli.  IlCo  TC  1390 

lied. 

IE(KELAoIl  = IK 

11C9. 

t (NELASt ) = Al  J) 

mo. 

NELAST  --  NfclAol  - 1 

mi. 

NUELEK  = NLtLEK  + 1 

1112. 

g c re  'l-tuo 

1113. 

me 

EP  = A (Jt 

1114. 

14  t C 

CCMIKLc 

1115. 

I E ( Kfc  LAST  ) = 1 

1 l lo  . 

E (NELAST ) = lP 

111/. 

LEIKTLAST)  - N tL  AS  T 

1113. 

NFLAST  = NtLrtST  - 1 

1110. 

N T L A S I = N T L A o T - 1 

1120. 

NUELEK  = NUELeM  + 1 

ua. 

2CCC 

CCM  IKCt 

1122. 

<C5C 

IFIKS1  .to.  0)  oC  To  3500 

1123. 

C 

1 12-*. 

c 

DC  L-u  CtCLMFO i IT1UN  OF  duMP 

112  5. 

c 

1 12o. 

00  3CCC  J = L P 1 » i\K  1 

1127. 

IV  = VPto(o) 

1 123  . 

CALL  INPACK ( 1 V < 

1120. 

CALL  flRAMil 

1130. 

l HC  K P - 0 

1131  . 

IKCKIK  = -SS4V59 

1132. 

CC  clCC  I = 1 , Nr.  On 

1133. 

IF  (OAEoirilll  .LL.  LTuLPV)  GO  IG  2100 

1134. 

IF  (PPfbtil  .bfc.O)  Gl  TJ  2100 

l 1 j5  . 

IF  (FPbuli)  .LL.  I PLM1M1  GO  TO  2 

ICO 

1136. 

IRCK  IK  = hRtbl  11 

1137. 

IKCkP  *•  1 

l 133. 

2 ICC 

CCMIKLt 

1130. 

IF  ( I FCIkF  .GT.  o)  CC  TCI  2150 

1 140  . 

a R I T E ( t » tiUC  C 1 

1141. 

K I N t A C ( I v 1 = 0 

1142. 

GC  re  3joo 

1143. 

C 

1 14-,  . 

2 1 5 C 

INCR  ~ hn  t b ( IKCurPl  ♦ 3 

1145. 

C 

1146. 

c - 

KKlTE  L AN  0 L kTAS 

1147. 

C 

1143. 

IF  (J  . t‘j . KK  U GO  TO  2160 

1140. 

KELCK  = NtLtW  ♦ 1 

115  3. 

IE(KELEM)  * IRowP 

1151. 

t(NELEK)  = KIKOoPl 

1 152. 

< lfcC 

CC  2 3CC  I - i »NKlw 

115  3. 

IF  (I  .cm.  iKUnP)  CL  To  <.300 

1154. 

IF (CAeSlV ( I J ) .Lt.  2ToL2E)  Gu  TC 

*3C0 

1155. 

IF  (PPEbCl)  .GE.  0)  GO  TO  220vi 

1156. 

c 

115  7. 

c 

l eta  ilemeats 

1 13  3. 

c 
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1CJ7. 

CL  = 17  1 1 V 1 

1C?  J. 

KK  - LAl  1 v + i)  - 1 

IC39. 

I MCN  T * o 

ICAO. 

DC  105C  1 - Lc )Kn 

1CAI. 

1R  = 171  n 

1CA2  . 

IF  (FiREGilK)  .Cc.  Cl  GO  TO  iOio 

1CA3  . 

IftCM  = IMCNI  - (HKEollR)  +1) 

ICAA. 

1C5C 

CCMIML 

1 C Af>  . 

MREC(J)  = IftCNT 

1CA6. 

11CC 

CCM  INCE 

1 C A 7 . 

c 

1 C A ‘3  . 

c 

SuR  I CGLOMNs  INTO  MERIT  CROER 

1CA9. 

c 

OslNG  SFEcC  SCRT 

1 C 50 . 

C 

1C51 . 

I SC  = 1 

1C52. 

net 

IF  1KR1  .cT.  2*1  SO  ) GO  TO  1103 

1C  53  . 

ISC  ~ 2* 1 SL 

1C5A  . 

GC  TC  liu6 

1 C 55  . 

lice 

ISC  = Iso  - 1 

1C  5b  . 

C 

t NO  OF  INITIALISATION 

1 C 5 7 . 

1 1C  1 

IF  (ISC  .Ct.  ol  GO  It  1107 

1C  53  . 

ISK  = 1 

1 C 59  . 

lie* 

I S J * ISk 

icto. 

ISL  = ISk  + ISC 

ICE!  . 

I S Y = ftkeOlISL) 

!Ct2  . 

ISZ  = VhcG  1 I SC  1 

lCfo3. 

1 1C3 

IF  USY  . C T . MREG(ISJ))  GD  To  110A 

lCfcA  . 

1 1 C 5 

ISl  = Isj  ♦ ISC 

1C65  . 

MREG1ISU  * IsY 

1 lilo  • 

vRECl  ISC1  = ISl 

1 C t 7 . 

ISK  = ISk  •*  1 

U fc  '3  . 

IF  1(1  Sk  ♦ 1 Su 1 .Ct.  i\Rl)  Go  TO  1102 

1C69  . 

ISC  = (ISO  - A)  / * 

1 1 70  . 

GC  TC  1101 

1 C 7 1 . 

1 1 C A 

ISL  = ISO  * ISC 

1C72  . 

ftkECC  ISL)  = MKEG 1 1 Sj) 

1C  73. 

VRECl  ISl)  = vkEo(I Sj) 

1 C 7 A . 

1SJ  = ISJ  - ISC 

1 C 75  . 

IF  (ISO  .GT.  0)  GO  TO  1103 

1C  7b. 

GC  TC  1 1 05 

1C  7 7 . 

1 1C7 

CLNT  I RLE 

1 C 7 3 . 

C 

tNC  CF  SCRT  ROOT  IN t 

1 C 79  . 

C 

ice  j. 

c 

FOl  OOT  ti  EL  On  BoMP  ETAs  (PART  CF  0) 

1CE1  . 

c 

1CE2  . 

1 ISC 

N SOCK  = o 

1C63. 

N0ELC  V = c 

1C8A  . 

NELAST  = N t ft  A X 

1055  . 

NTL7ST  = NT MAX 

lUb. 

LE 1 NT  LAST  ♦ l)  = NELAST  ♦ l 

ice7. 

c 

1CE8. 

LR  - LRo 

1CS9. 

IF  ( L R 3 .oE.  lRa ) LR  = L R A 

1090. 

IF  (LR  .GT.  kra ) oC  TO  lUaO 

1C51  . 

JK  * FRA  ♦ 1 

lcse . 

OC  20CC  JJ  = cR.kRA 

1C  13. 

JK  * jK  — i 

1 cSa  . 

IV  * VREulsKJ 

1C55  . 

I * ftREul JK  ) 

1 C5b  • 

NE  ELC t>  = NEELOft  ♦ 1 

1 C S 7 . 

IF  (IV  .OT.  NKCn ) CC  TO  1200 

■ 


6 7b. 

c 

677. 

c 

' *-161.1  AtuVE  tUMP  ( PAR  f OF 

670. 

c 

6 7). 

NA8CVE  = ivAtbVE  ♦ 1 

680. 

IRCWP  = If* 

681. 

CALL  LAPACaUV) 

68 2 . 

CALL  VRlTA 

68  3. 

ALETA  = NcIA 

68'*. 

JH  IP  ) - i V 

60S. 

K IABA  $ ( I V 1 = IP 

6e6. 

VPEG  < . ) = VPtGURl  ) 

687. 

API  - KM  - 1 

6 d6  . 

AVRER  i-VMH  ♦ 1 

6e9. 

HPEG ( IP  J = IV 

660. 

GC  TC  6su 

661. 

c 

6 62  . 

6CC 

IF  IHPEGUP)  .GE.  U OQ  TO  800 

6<3j. 

IRCAT  = IkLM  ♦ 1 

666. 

IPP  = IP 

663. 

eci 

CCATIALfc 

66  j. 

c 

667. 

IF  IIPCNT  - It  810, SCO, 1000 

668  . 

fc  1C 

WRITE  U.oOCU 

686. 

A IKE  AS  ( i v ) = 0 

CCJ. 

VREG(J)  = vKluIKkI) 

COl  . 

AVRER  = I.VKtM  + 1 

CC2. 

KR1  = Kki  - i 

CC3. 

IF  (J  .01.  aRI  ) Gb  IC  1010 

CC6  . 

GC  TC  3*o 

CCS. 

c 

C06  . 

c 

POT  VtCTCH  8iLLU  80MP 

CC7. 

c 

CC3. 

6 C C 

VRECI J)  - VhtGIAPl  i 

CC9  . 

NVRER  = NVREM  ♦ 1 

CIO. 

KR1  = Kki  - l 

Cll. 

LR3  = LK j - 1 

C 12  . 

VREGIlPj)  = IV 

C 1 3 . 

RPEG { IPO)  = IRF 

C 1**  • 

hPEGIIRPJ  = 0 

C 1 8 . 

Jh ( I R f ) = 1* 

C16. 

A l At  A S ( I v ) = IPP 

C 1 7 . 

c 

CIS. 

c 

CFANOE  KOw  Ob  LA  To 

CIS. 

c 

3. 

66C 

CC  96C  I i = LL ,AA 

C21  . 

HR  = IA(  I II 

C22  . 

IF  (hPfcuI 1 IR ) .GE.  C)  GO  TO  4s0 

C23. 

FPEG  ( I IR  J = hREud  IR)  + 1 

C26. 

65C 

CCA  T [ Act 

C28. 

IF  (J  .GT.  ARi)  uU  TC  1010 

C26. 

GC  TC  32b 

C27  . 

1CCC 

IF  (J  .Gt.  A**  1 ) GO  TO  1010 

C28. 

J * J ♦ I 

C29. 

GO  TC  320 

C 30  . 

1C  1C 

IFIAVPtM  .01.  c)  GC  TO  310 

(.31  . 

c 

C32  . 

c 

gEI  REf IT  CbuNTS 

C 3 3 . 

c 

C34  . 

1C2C 

IF  (API  .to.  C)  GO  IC  1190 

C3S  . 

LC  UCC  J • L R 1 * AR  1 

C j t)  . 

IV  = VREG i J ) 
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* ™ 


915. 

<516. 

917. 

sn. 

919. 

920. 

921  . 

922. 
92  1. 
92*. 
925  . 
926. 
92  7. 
52B. 
<529. 
933. 

931  . 

932  . 
9 3 3. 
9 3'.. 
933. 
93o. 
337. 
93>! . 
5 39  . 
9*0. 
9*1  . 
3*2. 
3*3. 
3**  . 
9*9. 
9*6. 
9*7. 
9*1. 
3*9  . 
9 50  . 
9 91. 
(52. 
9 9 1. 
99*. 
995  . 
9 96  . 
9 5 7 . 
9 3 3. 
9 39. 
96  0 . 
961  . 

962. 

963. 
96*  . 
965. 
9 66  . 

96  7 . 
5 6 3. 
969. 
979. 
971. 
972  . 

97  1. 
9 7*. 
975. 


DC  2CC  1 = LK*  tK  k* 

IP  = FBEol  1 1 
kREGI  IR)  = 6 
Jh ( 1 R ) = IR 
K INBA  S ( IR  J = IK 
2CC  CCNTIMJt 
C 

C Poll  CJT  VECTORS  BELu*  BCMF  AND  Gtl  P.CW  COUNTS 

C 

NBNCN2  = Kk * - LR*  + 1 
IF  (KP1  .cl.  0)  GU  TO  1190 
J = L P 1 

2 1 C IV  = VReGlJ) 

LL  = LA  1 IV) 

KK  = LAI Iv+l)  -i 
I ROM  = 0 
DC  22C  I = LL » KK 
NBNCN2  = NBNCN  L + 1 
IP  = I A l I ) 

IE  (HPEG(Ik)  . Ct  . Cl  CO  TO  220 
I PORT  = IRCM  + i 
HREC-I  IR)  = F'KcGl  IR  J - i 
IRP  = Ik 
22C  CCNTINLc 

IF  (IPCNT  - i)  2JOii5J»iG0 
2 J C «PIT£ (6 ,dOCCJ 
ECCC  FORMAT  (16ML71ATRIX  SINGULAR  1 
KINEASIiv  ) = 0 
vPEGI J)  = VREGlKkl  1 
KRl  = KK 1 - 1 
If  (J  .CT.  kRI)  GU  TC  jlO 
GC  TO  210 
C 

25f  VPEG(J)  = VPtGlKRU 
KP1  = KK  1 — 1 
LP3  = LRJ  - 1 
VPEGILPoJ  - IV 
MKEGUR3)  = IRP 
PPEG ( IRP)  = G 
JHl  IRE)  = Iv 
KINBAS(lv)  * IKP 
IF  (J  .CT . KKi ) OD  TC  310 
GC  TC  2 1 o 

3CC  IF  (o  .Ct . Kki ) GU  TC  3LO 
J = J-*  1 

GC  TC  210 
C 

C Poll  Cut  RtMAINING  VECTORS  ABOVE  AND  BEL0»  THE 

C BUMP  ANu  ESTAdUSP  MERIT  COUNTS  OF  COLUMNS 

C 

3 1 C NVREM  = o 

IFIKP1  .El.  o)  GO  TO  1190 
J = LP1 

32C  IV  = VPco(J) 

LL  = LAI  I V ) 

KK  = L A ( IV  + i)  - 1 
IRCM  = G 
CC  BOC  I * LL i Kk 
IP  = I A < I ) 

IFIFPEGIIK)  .Nfc.  -2)  GO  TO  *00 

147 


vy; — 

. ...  m*.  ' . Q-.X. 


6ARPAYUFN  « I)  = dAKRAYIIFO  ♦ I) 
1C C C CONTINUE 
RETURN 
END 

SOBROUINt  INVERT 


6 5 7 
659 
650 
86  J 
c6  1 
862 
66  3 
664 
6t  G 
6co 
66  7 
66  3 
669 
£70 

671 

672 

673 
8 74 
676 
8 76 
67? 
£7  J 
679 


ccnpjTeS  i n vt  rs  e of  current  basis  ey  cu  oecomposit ion 

SLtRuoT  I N t ADAPTED  FROM  CINEAR  PROGRAMMING  CODE  LPM-l,  WRITTEN 
BY  J.A.  TcMLlN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 


IMPLICIT  KEAC*4  IA  ,C,E-H,C,P,R-li,  2) 
INTEGER***  (I-N.U) 

INTEGER*2  , 6 InoA S ,LA ,L E , I A , I c 

CCLBLE  PKeCISICn  eUODD) 

REAL  A(suO) 


REAL*  d (BfO.XiY) , 


CCMPCN/BluCn/  2TuL  2E.2TOCPV, 2TCCST, 2T0LRJ , 2TCLSM ,QRO, QMA ,0oA ,<JF  I , 
Ct  C , C 3L , wA  , oPC  , CM  I , C2  ,0 1 , OF  , CN  , DU,  NRMAX  , NEMAX , UB, q C, 
WE , w 6 , wL , QU , DR » qM  ,Uc, NT  MAX 


CCMMCN  t,  XeBU22  ),  Xu6U22)  »B(bO)  ,X(  6J)  , Y(bC)  , YTEMPI60  ) t DSoM,  CPROD, 
oY ,UE,CF, A,  ICNAMI 122,2) , NAME (20) , N TEMP I 20 ) , SoM INF , MST A T, 
IuoJ.IKCrP,  1VIN,1VUJT,UCNT,  INVFRQ,  IT  RFRq  , I TS  I NV , IFF  E 2 , 
JGUlP.NrOw, N Cot, NELEM.NET A .NLELEM ,NLETA,NUELEM ,NUETA, 
i E ( 1GC0  ) , I A l5wU) , Ce(2P2)  ,LA( 122 ) , K I NB AS  1 1 22 ) , J H 1 60) 


INTEGER**.  MR eG ,HRE G , VKt G 

DIMENSION  MREo(oG)  , PkE  G( ou) ,VR£G(bO  ) 

ECO  I VALENCE  IMREol  1 ) , YTEMPI  1)  ) , (HRE  G ( 1 ) , Y TEMPI  31  ) ) , (VREGU)  , X(l)  ) 


cT  PARAMETERS 


NETA  = u 
NLETA  = j 
NLETA  = 0 
NELEM  = 0 
NLELEM  = 0 
NGELEM  = 0 
NA8CVE  = 0 
L E ( 1 ) = 1 
LR 1 = 1 
KR1  = C 
LR4  = NRU«  * 1 
KR4  - NRurt 


PCI  SLACKS  AND  ARTIFICIALS  IN  PART  4 AND  REST  IN  PART  1 


CC  ICC  1 - i.NKG* 

IF  (JF(I)  .oT.  NROW ) oU  TO  SO 
LR4  * LR4  - 1 
MPEGILPa)  *=  JHIli 
VREGUR4)  * JHU) 
oC  TC  SO 
5 C KPl  * KR 1 ♦ I 

VREG(KFl)  * JMli) 

SC  FHEGI I ) = -1 
JHt I ) - C 
ICC  CCMINLe 


I 

I 


w 

I t 

I ! 


79  3. 
799. 
79  9. 
796. 
79  7 . 
79tl . 
799. 

eoo. 

801 . 

SC2. 

eco. 

£09  . 
EC9 . 


62  5. 
£29  . 
£2  9 . 
826 . 
£27. 
028  . 
829. 
2 JO . 
£31. 
£ 32 . 
£33. 
839. 
839. 
£ jo. 
£3  7. 
8 J 3 . 
839. 
89  J. 
£91  . 
892  . 
39  5 . 
899. 
893. 
396  . 
£97. 
e99  , 
89  7. 
890. 
e9i . 
£52. 
£53. 


DCIBLE  PktClblCN  c ( 1006) 
BEAL  A ( 3 JO ) 


COMMCN/buUCK/  2TuL iE,2TOcPV,2TCCST, 2T0LRJ , ZTCL SM ,QRU , QMA  . Ob A ,QF  I • 
wfcu,  l8l,QA,CPl,0MI,C2  ,o  I.  OF.  ON,  UO,  NRMAX  ,NEMAX , OB.QC, 
OE  «gF  »0i- ,00  ,QR  ,QM  ,QG , NTMAX 


COMMON 


L,XLtll2x), X>.B»122)»o(oG),XltU) , Y ( 6 C)  , Y TE HP ( 60 ) , OSUM, DPftu 0, 
OY.OE.UP, A,  1CNAM(  122,2)  .NAME  (20)  ,NIEMP(  20  J,  SUM  INF  , MSI  AT, 
iOJU,IRC„P,  IvIN.IVOUT.ITCNT,  INVFftQ, ITBFRO, ITSINV, I FFcZ, 
JCULP , NKum, NCOL.NELEM.NETA  ,NLElEM,NLETA,NUELEM,NUETA, 

IEI aGOO),  I A 1900  5 , Lc(2->2)  ,LA(  122  J , K l NB  AS  U 22  ) , JHt  60J 


£06  . 

NELEM  = NtLbM  ♦ 1 

EC  7. 

IEINELEMJ  = I kCM P 

£CB. 

E(NELEM)  = YllftuhP 

) 

EC9. 

C 

81  ). 

DC  1CCC  I = l.NRCM 

£11  . 

IF  (I  .Eg.  IRUmP) 

GC  TU  1000 

£12. 

IF  (0A89(Y(I5)  .LE 

. 2TOL2E)  GU 

£13. 

NELEM  = NELEM  + 1 

ei9. 

IE(NELEM)  = 1 

£19. 

E(NELEM)  = Y ( I ) 

816. 

1CCC  CCNTINCt 

£17. 

C 

£10. 

NETA  = NETA  1 

6 19  . 

LEINETA+1)  = NEcEM 

♦ 1 

£2  0. 

RETURN 

£21  . 

ENC 

£22  . 

SLBROL  TINE  SHIFTRI 

iclo, i new  ) 

TO  ICOo 


BE  ARRANGES  CA  TA  £ T URAGE 

ScBBuOT INc  AgAPTEC  FROM  LINEAR  PMUGRAMMING  COOE  LPM-i,  WRITTEN 
BY  J.A.  ICMlIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 
*44*ft***CESCKIPTlLN  UF  PArAME TERS******* * 

IOLC,  INE*  » PARAMETERS  INDICATING  STORAGE  LOCATIONS  FROM  AND 
TC  khCIH  DATA  I S TU  BE  TRANSFERRED,  RESPECTIVELY 

444*4*«ftftftft**ftftftftftftftft ft* «** **********4**** 

IMPLICIT  K t AL  *9  (A  ,C,E-H,C,P,R-», i)  , HEAL*  8 <B,0,X,Y), 

1 !McGtR*9  II-N.O) 

I NT  EG  ER*2  oH,xINEAS,LA,lc,IA,Ie 
0CL6LE  PRECISION  E(IOOO) 

REAL  A136L) 

COMMCN/bLOCK/  ZTUL  2E,2T0LPV,2TCCST, 2TULR J , 2TCLSM  ,QRO, QMA , Lb A ,gF I , 

1 LEQ.OcL.UA.gPL ,CMI,C2  ,01, OF, CN.CU, NRMAX,NEMAX,OB,OC, 

2 gc , g h , gL , 00 , OR , OM , 0 C , NT MAX 

LQMMCN  t , ALtU22  ) , XUo(  122)  »B(60)  ,X160)  , Y(oO)  »YTEMP(60  ) ,USUM,  CPRUD, 
1 uY  » C£  » CP, A,  I ON  AM  ( 122,2)  ,NAME(20)  , NTEMP  l 20  ),  SUM  INP  , MST  AT , 

, 1 R Cm P , IVIN, I VUUT, ITCNT,  INVFRQ, ITRFRO , ITS INV , IFF E L , 

D .Vl  K l ...  K.L.,  tin.  LL  TA  .ki  Cl  ICM.Kil  CTA.AillCI  CM-hlilKTA. 


10 bo, 1R Cm P,  IVIN, I VUUT, ITCNT,  INVFRQ,  ITRFRO , ITS INV , IFF E 
OLUCP ,nrom, NCOC,NECEM,NETA,NLELEM,NLETA,NUELEM,NUETA, 
IE  I lOOo), I A (900) ,Ce(232)  ,LA(  122 ) , K I NB AS < 1 22 ) , JH ( oO) 


CIMENSIOn  E AkK  AY  (2  90 
ECO  tVALcNCE  (BARRA Y(1),B(L)) 
IFC  = (luLL  - 1)  * NRMAX 
I FN  * ( INEW  - 1)  * NRMAX 

DC  1CCC  I * 1 , NkUM 
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f 


737. 

lie 

IF  (XU)  .lT.  UiblllUii  - 2Tol  2£ ) ) 

GC  TO  500 

73  3- 

06  = <X<  17  - Xtd  ( I COU  >/ V 4 1 7 

73‘t . 

16  (CE  .6c.  CP7  00  TC  5dO 

733. 

IPTYPE  = U 

7 36. 

GC  TC  230 

737. 

C 

i.EGATIVt  COEFFICIENT 

733. 

2CC 

16  (X(l)  .GT.  (XU3  ( I COL)  «■  lTUL  26  ) ) 

GO  TO  30 C 

7 3 3. 

UE  = (XU)  - XoO  ( 1 CCl)  ) / Y ( I ) 

749  . 

IF  ICE  .od.  OP)  GO  TC  300 

741  . 

IPTYFE  = -1 

7 <i  2 . 

25C 

OP  = CE 

74). 

I KCoP  = 1 

744. 

5 CC 

CCNTINLt 

74  3. 

06  - CP  ♦ XId(JCuLP) 

746. 

IF  (CE  .lT.  X06(JCCLP))  Go  TO  6CC 

74  7. 

DP  = Xlib(JCOLP)  - XLB  ( JuGLP ) 

743  . 

NPIVCT  = J 

749. 

750. 

6CC 

NPIVCT  = 1 

751  . 

RETURN 

753  • 

C 

751. 

C 

IINGcrtlNG  vARIABlE  AT  JFPER 

BCJND 

754  . 

C 

755  . 

1CCC 

OP  = -I.EiC 

756. 

CC  1 5 C C 1 = 1 »NRlw 

75  7 . 

IF  (I  .cO.  ICdo)  OC  TO  Isoo 

7 5 3. 

I CCL  = jnl I) 

759. 

IF  (YU)  .GT.  ITUlPV)  GO  TO  HOC 

760. 

IF  (YU)  .IT.  -cTULPvJ  GO  TO  12C0 

761  . 

GG  TG  1500 

7c  2. 

C 

PCalTiVE  COEFFICIENT 

763. 

11CC 

IF  (XU)  .GT.  (XUB(IlOl)  + 2Tul 26  j ) 

GG  TO  1500 

764. 

06  = (Xll)  - AOBUCOUl/Yll) 

765. 

IF  (CE  .Lc.  CP)  GO  TC  1300 

76o. 

IPTYPE  = -1 

767  . 

GC  TC  1250 

7 6'). 

C 

HtoATIvt  CCtFFIcItNT 

769  . 

L2CC 

IF  (XU)  .LT.  (XLBIICUL)  - 2TOL2E)) 

GO  TO  1500 

770. 

CE  = (XU)  - XLblICCLJ)/Y(I) 

771. 

IF  (OE  .Lc.  CP)  GJ  TC  1300 

773. 

IPTYPE  = 0 

7 73. 

12  5C 

OP  = CE 

7 74. 

IRCRP  = 1 

7 75  . 

1 5C  C 

CCNTINLE 

776. 

06  = CP  + XOoCOco LfJ 

7 7 7 . 

IF  (CE  . uT  . XlB(JCCLPJ)  GO  TO  160C 

773. 

OP  = XLB(JLClP)  - XgB(JCOLP) 

7 79  . 

NPIVCT  = o 

780. 

RETLRN 

761  . 

16CC 

NPIVCT  = 1 

733. 

RETLPN 

763  . 

end 

764. 

iCrfBCcriDt  areta 

763. 

c 

736. 

C 

FcRPS  fie*  t Ta-V  k.C  TOR  CGRRESPCNCING  TO  CURRENT 

SIMPLEX  PIVOT 

787. 

C 

SGEhujT I Nt  AOAPTE0  FkOM  LINEAR  PROGRAMMING  CuOE  LPM-1,  WRITTEN 

733. 

C 

BY  J.«.  (GMLIN  (OPERATIONS  RESEARCH,  STANFORD 

UNIVERSITY) 

789  . 

c 

79j. 

IMPLICIT  RE AL*4  (A  ,L  ,E-H , C, P , K-h , 2) 

, REAL*U  (3,0 

,X,Y ) • 

751  . 

l ,NTcGfck*4  ll-N.U) 

742. 

INTEGER"1*  JH,K  li«dAS,LA,Lfc  , U,  It 
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I 1 

I 

L 


GC  TC  ioju 

CCL  IF  (CSLi'i  .cL>  CMAa  ) JU  Tl  iOJO 
C VAX  = Jjjf 
JCCL2  = J 
lClt  CCMHU 

IF  t L R l'-\  »Lc*  — /.  TCLSTJ  uii  Tu  IdCv. 

IF  ICRAX  «LL»  ifeUSTl  v>u  TU  ZOOC 
JCCLF  = J 
RCCST  - j . 

RETLRN 

1ECL  IF  ( L F A ,\  .vie.  Jeiill)  Gj  Tu  d50C 
lfcCC  JCCIP  * JLO Li 
PCC  S T = CMIN 
rvt  TURN 

2CCC  JCCLF  = JCCLZ 
PCCST  --  UMAX 
RETURN 

.^tC  IF  (AtSluMlM  - oMAX)  no  Ov,  ■ nO  J C . 1 cO  L 

ENG 

SGBROlTiNt  ChJcX 

PERFuRM  i Mlls-rAlIC  TtsT  FuR  PIVOT  COLUMN  JCOLR  OcTERMINEU  In 
SgcPCJTINe  PKlCt.  ScLECTi  PIvtT  kCK  IROwP  f OP  CURRENT  PRlMAc- 
SINPLcX  ITERATION. 

SceRUjTINL  AUAPTEU  FrUM  LINEAR  PROGRAMMING  CODE  LPM-i,  *kITTcN 
BY  J.A.  ICMlIN  IlPlaA f IONS  RESEARCH.  STANFORD  JNIVERSITY) 


IMPLICIT  Rc  AL* A IA  ,C  , £-ri , C . P , R- » . L > . REAL*  8 (B.D.X.YI, 
I lMcG6K*4  ( I—N , v, ) 

INTEGER*..  jP.Mi.dAS.LA.LcriA.lt 
INTEGER*..  iPART,  iNCuMd.  I VBNJ,  iV  1C, ICdNO 
OCUBLE  PklLISILN  cliOOO) 

REAL  A<3j0) 


CCMMlN/cluLR/  lTul  it  .GULP*,  ETC  LSI  . ZToLRJ  . ZTCLSM  ,t«KG,  CM A, UO A, OF l , 

I GcO.wdL.oA,  UPL  .UM  I . G Z .O  I , OF  » GN.QU.  NRMAX  .NEMAX.  LB . U C . 

n «t .OH.uL.uC.uk. UM  .LG. NT  PAX 

C C MFC  N / Jl  jCtvt/  l/FParT  ItLLj.KcYdNL.If.CVAL.  I CO  L.LISTl.IVAl.IuIR. 

1 hPI VLT, IPTYPE , RClST  , IF tAS, IPART tlLZ ) , I NCoMBl IcZI , 

l iVdNCl3OdJ,iVlU(5CC),IGbiY0l5GC) 

CORMCN  s • XL  til  :L.  ) • XuB  l idd  I ,d  ( 00  ) . X l to  I , Y l 60)  .YTtRP(oO)  , OSUM,  CPRbD. 
I jV  tic  , CP. A.  IlNAMI  IBd.c J .NAME  Uo) , N T tMP ( 20 ) , SUM  I NF , MST A T , 

i I yJJ  .iRLflP.  I v In. i vQUT . ITCNT  . INVFRC.  ITRFRU. ITSINV, IFF t Z » 

i JLULi'.NRon.NCUL.NtLcM.NETA.NLtLtM.NLtTA.NUELcM.NJtTA. 

A IdUCJ),  Ia  1 juOi  . LctZsZ)  .LAU22J  .KlNbASMc.').  JH(bO) 

IF  (MNOmo  IJLOLP  ) .cw.  -il  v.0  TC  lOCo 


I NCLN  Inu  variable  AT  LCkER  tJGUNC 

CP  = 1 .c  l G 

CC  EG  C I = 1 (i\Rj«v 

IF  (I  . c J . Ilo o ) oL  TO  >00 

ICCL  = jm I I ) 

IF  i Y ( I ) .GT.  cTOLPv)  GO  TO  100 
IF  (Y(I)  .Li.  -ZTULPVT  v.L  Tu  cJC 
GO  TC  Eoo 


PLilTivt  ClcFFICIENT 
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trj. 
6 11. 
612. 

613. 

614. 

615. 
t 1(3. 
6 17. 
619. 
619. 
62  'J  • 
621. 
622. 
62  1. 
624  . 
62  5. 
625. 
62/. 
62  3. 
e23. 
6 2 J • 
621  . 
622  . 

633. 

634. 

635. 
£36  . 
637. 
6 3 9. 
639. 
64  ). 
c4l  . 

642. 

643. 

644. 

645. 
6 46  . 
64  7 . 
6 4 3. 
644. 
650. 
651  . 
662. 
653. 
e 64  . 
6 63. 
1 6.5  . 
657  . 
t5  3. 
6 59. 
66  J. 
661  . 
662. 
663. 

6 64  . 
(6  > . 
£66. 
667. 
663. 
66  7. 
670. 


IF  (XU)  .lit.  (AjoULUl)  ♦ £ TUL  2t  ) ) jL  TO  20 
Y(  I ) 2 0. 

GC  TC  2u 
1C  YU  ) 2 1. 

SLMINF  = scMiNF  ♦ 7u)|IUjU  - XIII 
GC  TC  20 
cC  Y(  I > = *-i. 

SLMINF  = SlMINi-  ♦ x(I)  - XUbUCCL) 

2 C CCMIMt 

IF  (SLMINF  .GT . lTCLSM)  RETJRN 
Y(  ICBJ)  = 1. 

IFFEZ  2 i 
MSTAT  = .F 
RETLRN 
tNC 

SLBRCLTiNt  Pr.  1 Lc 

PRICi-o  LuT  Nu  N b A S 1 0 CLLUMNS  , CPOCSES  PIVCT  COLUMN  JCUlP  FOR 
CURRENT  PRIFAl- SIMPlcX  ITERATION 

SLERu^UAE  AjAPTcO  »-RlM  LINEAR  PROGRAMMING  CODE  LPM-l,  nRITTEN 
BY  J.A.  IoMLIN  (OPERATIONS  RESEARCH,  STANFCRO  UNIVERSITY ) 

IMPLICIT  Rt-L*4  (A  ,l,E-H, C.P.R-R,  2)  , REAL*3  (B,D,X,Y), 

1 INTEGER  *4  (I-N.U) 

INT6G  ER*2  oH.iUNoAS  ,LA,LE,  IX,  IE 
INTEG£R»2  IPARf, INLLMotlVoNOflvIOflLdNO 
GCLBLE  PKtCiSiLN  E ( 1000) 

REAL  H 5Ul) 


CCMML  X/duLU/  ZTOo  Zfc,ZTJLPV,£TCCST,  2 TOO KJ , ZTCLSM , QRO,  OMA,  OB  A ,4FI  , 

1 wE  U , .oLi  4 A , 4PL  , *4M  I,4£,t.l.4F,  LN  , 00 , NRM  AX  , NE  MAX , QB  ,40 

2 40  »4F  »UL , 40  »4H  « 4M  »0G»  NTMAX 

CCMMCA/DLULK2/  OFP AR T (12 2 ) , KE VBNO , I NC V AL , I COL , L I STL , I VAL , 1 01 R, 

1 NT  I vLT.IPTYPE.RCCST,  IFEAS,  I PARTI  122)  , I NCUMBU22I  , 

2 I VBMJIjUJ)  , 1VI0I5UC)  , I Ct3N0I  500 

CCMMCN  E,AL£(l<2),  Xub  U2l  ) , 0 (oO  ) , X l 60  ) , Y 1 6 C)  , YTE  MP  (6>0  ) , OSUM,  UPRoO 
ui  ,0c,  LP  , A,  ILNAMl  122,2  > , NAME  (<.  J)  ,NTEMP(  20  ) , SUM  INF  , MST  AT, 
lUdd  , IhOmP,  I YIN, I VOOT, IT CNT,  IN VFKo, IT RFRU • I TS I N V , IFFc l • 
jLuL P ,NRU n , MOL, NELEM.NET A .NLELEM, NLE T A.NUELtM ,NOETA, 

1 c I 1040  ) , 1a (500) , LE I 2 62)  .LA U22) , KINBASI 122), JHItoO) 


LMIN  2 i.LIC 
CMAX  * -i.Eio 
OC  ICCC  J-l.NCCL 

IF  (KlNdAs(J)  .GT.  0)  GO  To  100C 
IF  (IXLo(J)  - XL b I J ) ) .Ll.  2T0LZE  ) 
CSuM  * o. 

LL  2 L A ( j ) 

KK  * l A I J 4 i ) - l 

OC  5CC  I 2 ll.KK 
IP  2 I A ( 1 ) 

OE  2 All) 

LFRCi;  2 ot  * mm 

OSUM  = OSOM  ♦ lPH'JC 
CCNTINLt 

IF  (MNbAS(J)  .E4.  -1)  uC  TO  60 C 
IF  (OSLM  .ot.  CHIN)  GO  TC  1000 
LMtN  * OS JM 
JCCL1  2 J 


GO  TO  1000 
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2 


i 


■ 

■ 

i 


545. 

550. 

551  . 


57). 
5 74. 
575  . 

576. 

577. 

578. 

579. 
560. 
561  . 
56  2 . 
563  . 

564. 

565. 
586  . 
58  7. 
563. 
569. 
540  . 
551. 
54  ■>  . 


543. 
554. 
545  . 
556. 
55  7. 
553  . 
549. 

too. 

tci . 

tzi. 

6C3  . 
cC4  . 
6C5  . 
6C6. 
tC7. 
6C3  . 
ft  C9  . 


4t  » g P «uL«\.0»gK,.(M,C0,NTMAX 


CCPPCN  t , xLfcllAi.) , >LoU22)  ,b(ou  ) , XI  60) , Y(6d  ,YTE  PP  (60  ) , uS  OM,  DPKoO, 


55  2. 

1 

UY ,DE,OR, A,  ICNAMI  122,2) , NAME (2 0) , N T EMP ( 20 ), SUM  1 NF , MST  A T 

553  . 

2. 

iObJ  , 1 RC*>  P,  I v I N , i VOoT, ITCNT,  INvFRw,  I T RFRQ , I TS I NV , 1FFE 2 , 

5:4. 

■a 

J..ULP ,Nkur, NLOL.NE LEM, NE  T A .NLELEM.NL ETA.NOELEM.NUET A, 

555  . 

1l l 1LUO ), 1A (SCO), Lt(2 52)  ,LA( 122) ,KINB AS (122) , JH (60) 

556. 

C 

557. 

IF  (NETm  .Lt.  C)  oL  Tu  9000 

558. 

DC  1CCC  1 = l.NETA 

555. 

IK  = 

NETA  - I + 1 « 

560. 

LL  = 

LEI iK) 

561 . 

KK  = 

LEI IK*1)  - 1 

562  . 

IPIV 

= It(LL) 

563. 

CP  = 

E (LL  ) 

5t4. 

CY  = 

Y(IPIV) 

56  5 . 

OSuM 

- 0 . 

566. 

IF  (KK  .LE.  LL ) GO  TC  oOO 

56  7 . 

LL  = 

LL  + 1 

56 >3  . 

CC  5CC  j = L L , KK 

56 

IR  = 

IE  ( J ) 

5 70. 

OE  = 

6 (J) 

571  . 

CPRCC 

= 0 1 .*  Y ( 1 R 1 

5 72  . 

CSUP 

* usuP  * CPRoL 

5 CC  CONTINUE 


tcc  yufuj  = icy  - cSi.pi  / up 

1QCC  CONTINUE 
5CCC  RETURN 
ENO 

subroutine  furmc 


FCRPS  CCS  T vlCTCR  PUR  CORRfcNT  PR  IMAL— S 1 PPL  EX  ITERATION;  JSEO  IN 
CONJUNCTION  WITH  SUBROUTINE  PRICE 

SCBFuOTlNt  AuAPItO  PROP  LINEAR  PROCRAMMING  CODE  LPM-l,  WRITTEN 
BY  J . A . TOMLIN  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY) 


IMPLICIT  HtAL*4  (A  ,C,t— H,C,P|R-t»,  2)  , REAL*d  (B,0,X,Y), 
1 IN  TEUER  *«»  (I-N.U) 

INTEGER Au  jH«kINoAS,lA,lE, I A , IE 
DOUBLE  PRcOlSlCN  EllOOO) 

REAL  AIsJJ) 


CCMMLN/buUcN/  lTul  l £,2T0lPV, 2TuCST, 2T0L R J , L T CLSM  , QRO , gMA.GBA.OFi  , 

1 CEG,CBL,jA,wPL,OMI,w2,wI,OF,CN,CO, NRMAX , Nc  M Ax , Qb , GC , 

2 wE ,GF  ,gu» oG,GR»GM  ,GG, NTMAX 


CCPPCN  £,ALb(l*2),XLb(122),6(60),X(c0),Y(60),YTEMPl6O 1 ,OSUM, 0 PROD, 


OY,uc,OP,A,  I CNAM ( 122 , 2 ) , N AME ( 20) , N T EM P l 20 ) , SUM  I Nf , MS T AT, 
Iu6j,  IROWP,  IvIN.IVOOT.lTCNT,  INVFRG,  I TRFRQ , I Ts I NV , IFFc 2, 
JCOL P, NKu n, NCDl, NELtM.NtT A ,NLE LEM , Nl E T A , NUE LEM , NUET A , 

1 E ( IUCJ), I A (500) , Lcl 262)  ,LA( 122) ,M  NBAS  (122), JHloO) 


MSTAT  * g( 

IFFE2  = 0 
SLMINF  = 0. 

Y ( ICB J ) = C. 

OC  JO  [-1 , NRCw 

IF  (I  . Eu.  ILBj)  CL  TO  30 

I CCL  - JH II) 

IF  (XII)  .LE.  (XLb(IlOL)  - 2TOL2E))  GC  TO  10 
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-I 


4ea. 
489  . 
49J. 

491. 

492. 
49  3. 
494. 
499. 

493. 
49  7. 
499. 

49  3. 
SCO. 
SCI  . 
502. 
503  . 
SC4. 
5C5. 
5C6. 
SC  7. 

sea. 

50  9. 


5 38. 
5 29  . 

540. 

541. 

542. 

543. 

544. 

545. 

546. 

547. 

548. 


C SlERUuTINE  AD  AP  I c 13  FkCM  LINEAR  PROGRAMMING  CODE  LPM-i,  mR  I TTE  N 

C BY  J.A.  TdMliN  ICPcRm  T IONS  RESEARCH,  STANFORD  UNIVERSITY ) 

C*» 4*****Ct SCRIPT iuN  UP  PARAMETERS******** 

C IPAR  = PARAMETER  INDICATING  BY  MUCH  ETA-VECTORS  THE  MATRIX 

C COLUMN  IS  TC  BE  CPCATEO 

.***4*  »*»»,,*»<***»  »*»****•* 

IMPLICIT  «cAl*4  l A , C » t-M  * G,  P » R— * , Z)  > REAL*8  <B,0,X,Y), 

1 INItGcR*4  II— N,G) 

I NT  EG  E P*2  Jh,KINcAS,LA,Lt» IA, It 

ecu bl e precision  euddoi 

REAL  Al^ojJ 

CCMMC  N/biUCN/  ZTOL  2 fc.ZTOLPV, ZTCCST, 2T0LR J , ZTOLSM , QRO,  QMA , DBA ,OFI  , 

1 CE  u,CBL,UA,  wPl  » CM  I,G2,Cl,wF,0N, CO , NRMAX iN  c MAX  , CB , W C , 

2 CE  ,U H » wL , CO , UK  , WM  , JG , NTM.AX 

COMMON  E,Xi.eil2Z  >.  *UBl  122)  ,8 1 oc),  XI  60),  Y 1 60)  , YTE MP 1 60 ) ,DSUM, DPROO, 

1 JY.CcOP.A,  ICNAMI  l22,2),NAMc(20)*NTEMP(20),  SOM  I Nr  * MS  T AT  » 

2 10b J 1 1 RCm  P > IVIN, IVOJT.ITCNT,  INVFRQ, I T PFRQ , I TS IN V , IFFt 2 , 

3 JCOlP , wRu r * NCul.NELEM.NE  T A ,N LE LEM , NLE TA ,NUE LeM ,NUETA, 

4 Ic(  10 CD), I A (500) > LEI 232) t L A I 12d ) , K I NB AS! 1 22 ) , JH 1 6 0) 


510. 
511  . 

C 

GC  TO  HOC, 110),  IPAK 

512. 

ICC 

NFE  = 1 

513. 

NCE  = NeTA 

514. 

G C TC  2 Go 

515. 

1 1C 

NFE  = NLcTA  ♦ 1 

516. 

NLE  = NETA 

517. 

2CC 

IF  (NPE  .GT.  NLt)  CC 

513. 

CO  1CCC  IN  = NFE, NLE 

519. 

LL  * LEI  U) 

520. 

KK  = LEIIn+1)  - 1 

521. 

IPIV  = IEILl) 

522. 

CY  = YUPIV) 

523  . 

DY  = CY/EILL) 

524. 

Y ( IPl V ) = CY 

523. 

IF  INK  .LE.  LL)  GO  TC 

526. 

LL  = LL  ♦ 1 

527. 

DC  50  C J = Li. , NR 

529. 

IP.  = IE  1 J ) 

529  . 

Y ( I R ) = Y I IK)  - El  J) 

520. 

see 

CCNTINLE 

531  . 

1CCC 

CCNT  I NLt' 

532. 

SC  C C 

CCNTINLE 

533 . 

RETLRN 

534. 

END 

525  . 
536  . 

c 

SCBRC  L T I Nt  fcTRAN 

527. 

c 

PEP  FORMS  BACKrARC 

* DY 


ScERuuTlNE  AD AP  T cc  FROM  L 1 NEAR  PROGRAMMING  CODE  LPM-l,  RRITTeN 
eY  J.A.  iLrttlh  (OPERATIONS  RESEARCH,  STANFORD  UNIVERSITY ) 

IMPLICIT  KEAL*4  (A  ,C,E-H,C,P,R-N, 2)  , REAL*  8 (B,0,X,Y), 

1 IMtuER*4  1 1— N,  C> 

INTEGER*.:  JH,KINcAS,LA,Lt,  IA, It 
DCUBLE  PKcCISICN  tllcOO) 

REAL  A I 3 JO  ) 


COMMON /bLuLR/  zToL  2 E , 2TuLPV , 2TC C ST , 2T0LR J , ZTCLSM , CRD, QMA, ObA ,QF  l , 
l CE0,CBL,DA,CPL,CMI,C2,CI,CF,CN,CU, NRMAX, NEMAX,CB,UC, 


427  . 


I C S 1 ~ NAM  lU) 


42  3. 

429. 
420. 
431  . 

432. 

433. 

434. 
425  . 
420. 
437  . 
428  . 

439. 

440. 
441  . 
442. 
443  . 

444. 

445. 
4 46. 
447. 
*»4  8 • 

449. 

450. 
451  . 

452. 

453. 
454  . 

455. 

456. 
457  . 

458. 

459. 
46  3. 

461. 

462. 
4 c 3 • 
464. 
46  5. 
46  s. 

46  7 . 
463  . 
469  . 
4 70. 
471  . 

47  2 . 
473. 
4 74  . 
47  5. 
4 76. 
47  7 . 

478. 

479. 

480. 
461. 
482. 
4d  J. 

484. 

485. 

486. 

487. 


ICS2  - HAMtl.) 

c 

C TEST  Flu  RUN  MATCH 

C 

siC  CC  54 C 1 = l.NRU* 

IF(NAMU)  «Nc . JCNAMiI.l)  .OR.  N Am  E ( K j .NE.  ICN  AM  ( l , 2 ) ) GO  TO  540 
8(1)  = ATtMPl 
535  IF(K  .CT.  s ) 00  TC  5 

IH CAESt ATcMlV  ) .LE.  67uL2E)  GC  TO  5 
J = 5 
K = 6 

ATENPl  = AUrtP<r 
GC  TC  5ju 
54C  CCNTINLt 

WRITE ( 6 i d JC L I NAME ( J ) , NAME ( N ) 

STCP 

C 

C ENOOHInPoT 

c 

6CC  NSCCL  - NoCL  — NRU V 
K = NPCw  + 1 

C INPUT  LLhtR  ANU  UPPER  BGJNDS  ON  CECISIUN  VARIABLES  FOR  SU8PRU6- 

C LE  8 lhlPROb 

WEAC  (5,osD  ( Xi.  B ( J ) , J=  K ,NCGL  ) 

REAC  ( 5 , u 50  ) (XUB(«i,  J=K.NC04-) 
t 5C  FORMAT  ( 1 5F5.0 ) 

XIB ( IC6J ) = -10O00  . 

XLB(ICej)  = lUCOu. 

C INPUT  cCmER  ANO  UPPER  BJJNDS  ON  ALLOCATION  VARIABLE  FOR  SUB- 

C FRCBLtM  INPROB 

REAC  ( 5 ,o5 1 ) ( IbLb  ( I,  IivPRCB)  , I=l,NLINK) 

REAL  (5,o51)  ( (bob  ( 1, 1NPR0B) , 1 =1  ,N  Li NK) 

651  FORMAT  laiiC) 

INVFRC  = NR Cm 

C STCist  A,  1A  ,LA,XJa,OLB,B,NCaL,NROW  FOR  SUBPROBLEM  1NPR0B 

LL  = JFIRST ( iNPROb  ) - 1 
DC  101C  1 = 1 ,NELcM 
LL F I = U.  ♦ 1 
AMATRS(OLPI)  = A ( I ) 

IC1C  l A S ( LLF l ) = 1 A ( l i 
CC  102C  K= 1 , NlCl 
L AS (K  , INPROB ) = lA(K) 

X L B S ( K , INPROB ) = XLe(K) 

1 C 2C  XLBS( K, INPROb)  = X ^ c ( K) 

K = MINX  ♦ l 
LL  = NFUrt  - is 
CO  102C  1 = 1, LL 

1C2C  RhS  ( I , iNPKLd  ) = sNGL(B(K*D) 

NCCLS ( INPROc)  = NOLL 
NRCmS  ( INPROB)  = NKCh 

JF  IPST ( INPRCE» 1)  = JFIRST ( 1NPR08  ) ♦ NELEM 

C 

NELEM  = NtLEM  - NRC* 

RELEK  = N£  LtM 

RDENS  = kcLcM/ (NKs»W*NSCOL) 

RETURN 

ENC 

SoePCITiNt  FTKAN(lPAk) 

C 

C PlFFuRMS  FCRmAPC  TRANSFORMA T 1 CN  ON  COLUMN  STORED  IN  VECTOR  Y 


. 


I 


366. 

267. 

268. 

366. 

2 73. 
271  . 
2/2. 
373. 

3 74. 
276. 
37s. 

27  7 . 
273. 
276  . 

28  3 . 
281  . 
282  . 

2 8 3 . 
284. 
385. 

3 86. 
297  . 
389  . 
289. 
36  J • 
2S1  . 
262  • 
363. 
264  • 
365. 
266  . 

367. 
26-3  . 
36  3. 
4C0. 
401  . 

4 C2  . 
4C3  . 
4C4. 
4C5  . 
4 C 6 . 
4C7. 
4C  3 • 
4C9  . 

410. 

411. 
412  . 

413. 

414. 

415. 
4 l s . 
417. 
413. 
413. 
4 2 0. 
421  . 
422. 
423  . 
42  4. 

425. 

426. 


C TEST  E oK  Run  MA  TCh 

C 

22C  0C  24 C 1 = i.NRoN 

IF(NAME(j)  .hi.  ICNAMU,!)  .Ok.  NAMEIK)  .NE.  I CN  AM  U , 2 ) ICG  TC34G 
NELEM  * NELEM  + l 
I A ( NE l EM)  = 1 
A(NELEM)  = ATcMPl 
LA  ( NC  C L » 1 1 -NEL  cM ♦! 

2 2 5 I F C K .CT.  51  GO  TC  5 

IE<CAESlATcMP2)  .Lt.  ZTCL2E1  GC  TG  5 
J = 5 
K = 6 

ATEMP1  =•  ATEMP2 
GC  TC  330 
34C  CCNTINOs. 

mRIIE  (6,  63  001  N«Ml  t Jl  ,NaME(N)  .NAME!  11  .NAME  (2) 

83CC  FORMAT ( iortCNO  MATCH  804  RG*  ,2A4,10FAT  COLUMN  ,2A4> 

STCF 

C 

C eASls  CAROs 

c 

4 1C  DC  42 C 1 = 1,NC0L 

IF(NAME(i)  .NE.  ICNAMU, 1)  .OR.  NAME! 21  .Nc.  ICNAMII, 2)1  Go  TO  420 

IEV8C  = I 
GC  TC  42  p 
4 2 C CONTINUE 

a P I TE ( 6 , 64cC 1 NAME ( 1) ,NAME<2) 

84CC  FCFMAT  UinGNC  MATCH  FOR  VECTOR  ,2A4  1 
GC  TC  5 

425  DC  43 C I = ltNRow 

IE  (NAME!  J 1 .Nc  .1CN  AMU,  i 1 .Ok. NAME  (4  l.NE.ICNAMi  1,2)1  GO  TO  430 

I bp C N = X 
GC  TC  44u 
4 2 C CONTINUE 

HPITE  16,6300  NAME  (3) ,NA«E(4l 
GC  TC  5 

4 4 C JH  ( IBFCO  = IbVct 
K l NE  A S ( I BRC A 1 = u 
KINEASUflVfcU)  = IBPLa 
GC  TC  5 
C 

C RHS 

C 

5CC  J = 2 
K = 4 

IF  (DABSl ATEMP1)  -LE.  2T0L2E)  CC  TC  521 
GC  TC  524 
521  J=5 
K = 6 

ATEMP  UATtMPc 
GC  TC  530 

524  CONTINUE 

IE  ( NAME  1 1 1 .EC.  1CS1  .AND.  NAME  1 2)  .EG.  1CS2)  GO  TO  530 
C 

C TEST  r-i,k  SPOT  VECTOR 

C 

DC  525  1 ■=  l.NCOL 

IF  ( N AM t ( 1 1 .NE.  I CN AMI  1,1)1  GC  TO  525 
IF  INAMEI2)  .Nt.  ICNAMlI,2)l  GC  TO  525 
*R I TE <6,02501  NAME ( 1) ,NAME(2) 

525  CCNTINLt 

156 


! t L CLM  I ALL- 
OC TC  i 


2 1 L NPC  h = Mo.>  + x 
NCC  L = FPL a 
IbNAF'  ,1) 

I C F AN  ( F K*j;y  t t I 


i\A  P 1 1 1J 
N A F E 1 2 1 


[ H 1 «Ew*  vi.  >uR  ■ Ni*bw*^L. } uu  TC  2 <0 

! F ( K2  . fcw • u t .uk.  Ai.EU.jE)  vj b IQ  230 

iFlK2.E«.«C  .ok.  K3.fcw.uG)  Go  TU  2AU 

IF(x2.C,.j.'.N  .OK.  KX.tzU.wN)  GO  1G  2 b J 

GG  TC  £>u 

t2C  XLB(NFCrt)  — c. 

XLB (NPCa ) - i . fcw 
GC  TC  2 SO 

2a C XLe(NFCK)  = 0. 
xiaiNFLrtj  = c. 

GC  TG  2po 
2 A C XLB(NKCw)  = G. 

XLB (NFC  a)  = X . E A 
A ( N PC  Ip  ) = -X. 

GC  TC  2oo 
2 i L A(NPC»)  = .. 

2 f C IA(NPCK)  = t*h'  Qr> 

LA  < N K C a ) = NKCia 
JFi(NKLK)  * N«C« 

K INE  A S (FmLn  ) 1 NKU  * 

NELFMrNKljA 
GC  TC  i 


FATPIX  IlEFIEnTS 


IF  (CABSl ATtriPl)  .Lt.  fcTCLZfc)  GC  TC  i2l 
v;L  T C J 


ATEFFl-p.lePP«. 

GC  TC  3iw 
^ CCNTINct 

IF  (NAPfc(X)  .cw.  IcSi  .ANO.  NAM  E < 2 ) .EU.  ICS2)  GO  TU  3jU 


TEST  Foh  SPLIT  VtCToK 


DC  32 1 I — X9NCU4. 

IF  (FAPL(X)  •I'.t.  i CNAMI  1 * X I I uC  TO  J2S 
IF  (NAFi.lt)  • N fc  . IlNAMll.2))  oC  TQ  3 2t> 
kKITE 1 1 1 W2 iC ) NAMfc ( X ) ,NAMc(2) 

EtSC  FCF P A T ( XnriL 3P L I T wtCTUK  »2A4) 

3 2 t CCNTINCc 

NCCl  * NluX  ♦ X 
ICSI  * NAF.  E(l) 

ICS2  = NAM  tit) 

I C F AM I NlQl  i x ) = It  s 1 
ICFAF!  IkuL  ,1)  = lw$2 
LA(NCCC)  = NtLtM  ♦ 1 


. 4“*  < 

245  . 
246 . 
247  . 
2 4 3 . 
2 <*  i . 


251  . 

252. 

253. 


1 66  . 

2 5 5. 

25  7. 

- s a 
259  . 

26  J. 

261  . 

lc2  . 
26  3. 
269  . 
265  . 
26b. 


<■  o ' 


c6 5 . 
26). 
270. 
i7l  . 
272 . 
2 7 J , 
Z 79  . 
2 75, 
2 76  . 
27  7. 
273  . 
2 79  . 
2 EC . 
2 £ L . 
2 32  . 
26  3 . 
iE4  . 
id  j. 

i 66 . 

2£  7. 
283. 
283. 


C SL  EFGuT  INt  AuAPIcL  FROM  LlNcAfi  PROoRAMMING  COLE  LPM-1,  WRITTEN 

C 8Y  J.A.  TOMLIN  (OPEKmTIUNb  RESEAkCh,  STaNFGRu  UNIVERSITYl 

C«*<*****CFSCkIPT  i ON  uf  PAkAMcTEkS******** 

C IFFRuo  = INi-REo  - IJENTIFICA71CN  NUMBER  UF  SUBPROBLEM  BEING 

C INPUT  loitR  Most  INPUT  SJbPRCBLEKS  IN  SECUENCE  1 >2 1 ••  • ,N->UBSl 

C 

IMPLICIT  ktAL*9  l A ,C  ,E-H , C » P r R-l» t U , REAL»d  <B,D,X,Y), 
l lMEGtR*4  (I-N,L) 

INTEGEfi*2  Jh,, \ INcAS, LA, Efc,IA,  IE 
I NT EG tF«i  I iST AR ,1 EIC, IBdNU, I ZB  NO 
INTEGER*.:  I A i , La  S 

DCL  81 E PRECISION  t ( lJOu ), A TEMPI  , A T t FP2 
REAL  Alsou) 


CCMMCN/bLUCX/  il ul L 1 , ZTOLP V , ZTCCST , 2TGLRJ , ZTCLSM  ,QRG,  QMA.ua A ,UFi  , 

1 uEC , C8e  » QA , wPL . QM  1, QZ.UI.UF.UN.CU, NRMAX.NEMAXtQ8.UC. 

2 uE  , W P » uL , UG , WK » uM  , G G , N T M A A 


CCMNCN/BLoCM/  kLAKCAlB,i:0,iU),ZNAUTl  20,10),  ZJBAR110)  ,NL  INn  , NSU8  S , 
112  INC , Uo*k 1 1 OEM , IdLL.NJFlx, JF1XSM,  Id! 5) , JFI XC lO).NSOL(io) , 

2Nl AMQA 1 lu ) .IbSTakI 5 , 90 , 1 o ) r I BUS  EC ( 5 ,40 , 1 0 1 tI6UB(5,10)  ,IbLB(b,10)  , 
3I2STAH40,ic),  lolu (2,20u) , IboNu  (2  LG  ),  IZdNG(200) 

CCMKN/ocLCKs/  XooSldO,  l 01  , XudS (20,  10  ) , AMATRS(  10 00 ) , RHS l 10, l 0 ) , 
INPCwS  ( lu)  .ivCul  S(  lo  ) , JFIRsT  ( 11 ) , IASUOCo)  , LAS  (20,  10) 

COMMON  L , XlB!  li.)  , )iSIUil  ,8(60)  ,A(  60)  , YloC)  ,¥TEMP(60  ) ,OSUM,  DPRUO, 

1 UY ,LE,OP,A,  IcNAM ( 122,2) , NAME  liO) ,NI£MF(2o),SUMINF , MS TAT, 

2 1UBJ.IRCWP,  IVIn.I VQUT , I T<  NT,  IN.FRQ, IT RFRQ , I TS I NV , IFFE 2 , 

3 ULULP  , NkL  a , NCUL  ,NcltM,  Nc  T A ,N Lt  ’.EM , NLF  T A ,NUE LEM  , N JE TA  , 

4 ic ( ICOU), I A 1600) , Lc(232)  ,LA(  122 ) , M NB AS (122 ) , J H ( 60) 


CC  10  l = 1 ,6o 
1C  8 (I)  = 0. 

CC  20  J= i,  li2 
2 C KlNBAS(j)  = 0 
NPCVi  * O 
ITCNT  = o 

I CS 1 = c 

I C S 2 - C 

RE  A C (5, 700c)  1NPRLB 
7 C CC  FORMAT  Ol4) 

IFPRCE  = INFROC 

IF  l I f FNuB  .Eu.  o)  RETURN 


5 REAC( t.lol)  Ki,Ni,K3,KH, l NAME ( I ) , I * 1 , 4 1 , AT t MF1 ,N AM E ( 5 J , NAME ( 6 ) , 
1 A T £ M P „ 


c 50  • 

IC  1 

FCRMA 1 liAl 

,iA4  , t-  X , iA4 ,2A  ,Fli 

:•**, 

JX ,2  Au ,2X, F12.4) 

251  . 

IF(K1 

• c.  w • 

OF)  GC  IL  6 00 

i 52  . 

IMK1 

.to. 

uEL)  LU  To  50 

25  3 . 

I F ( K 1 

• L vj  • 

2N)  oO  TC  100 

2 ',4  • 

IF1M 

.6-. 

»R  . ANu . Ki  .Ew. 

uJ) 

o-l 

255. 

IFIK1 

• bw« 

UK  .ANU.  N2  .to. 

UO) 

GC  10 

150 

296. 

I F ( K 1 

• CWt 

LC)  L -2 

257. 

IFIKl 

• t ‘J  • 

»L)  o L TC  loo 

25d  • 

IF  ( Kl 

• -W  • 

UL'  .ANU.  N2  .Eu. 

-A) 

L - 3 

259. 

I F I N i 

• t G.  • 

Wb  .ANU.  R2  .EG. 

Q A ) 

GC  IU 

150 

200  . 

IF  (K  I 

• t«M 

UK  .AND.  K2  .Eu. 

UH) 

L “4 

3C1  . 

I F ( K l 

• t N.  • 

uR  .ANo.  R2  .EU. 

UH  ) 

GC  TO 

150 

2C2. 

5 C 

GC  TC (2lo, 

J.  E , 41 C, 600 ) , L 

3S3  • 

ICC 

MFMP(I) 

NAM  tl  j) 

3C4. 

NTFMF(2)  = 

N AM  t ( 4 ) 

158 


I 


183. 

184  . 

2 3 1 C 

185. 

186. 
187. 

23  2 C 

189. 
189  . 
150. 

3325 

1S1  . 

3 3 3 C 

192. 

C 

153. 

154. 

34CC 

155. 

156. 

C 

157. 

2 

153  . 

C 

159. 
ZOO  . 

C 

2CI  . 

c 

2C2. 

c 

2C3. 
c C4  . 
2C5. 

sccc 

2C6. 

2C7. 

c 

20  3. 
2C9  • 

7 

210. 

211. 

<12. 

m. 

52 

214. 

2 15. 

216. 

5 

217. 

218. 

51 

219. 

220. 

221 . 

55  55 

<22. 

C 

it  3. 

C 

2 2',. 

C 

i 1 1> . 

C 

22  o . 
<27. 
223. 
<29  . 

23  3. 
,31  . 

4 12  . 

23  3 . 

C 

4.  i'*  • 
■ 35. 
4.  S')  . 
,37. 
<39. 

< 39  . 
443. 
<41  . 
2 42. 
241  . 


AVI  J)  *t InTSCLI  J)-l  )*AV(J)*(ZJBAM  J)-INCVaL )) /NTSQL  (Ji 

GC  TO  3400 

ISLACf  = J 

IMP  1 = NlINK  + 1 

OC  32 i 5 1=2. NP1 

ISLACK  = I SLACK  ♦ INCUMb(I) 

AVlJ)*l(NTSCLljl-l  )*AV1 J)*ISlACK) /NTSGLI J) 

GC  TC  34CG 

AV<  J>  = 1 (NTSCH  J)-i  )*AV( Jl-TIME  1 /MSCL  1 J) 

save  allocation  anu  solution  information  for  subproplem  j 

CALL  S AVER ( J I 
K = NTEMPUI 

CLTFJT  SCLJTION  INFORMATION  FOP  SuBPKUBLEM  J 
WRITE  <0,4?)  J,K,  (I  NCUMB(KK),  KK  = 1 ,NCGU 
FORMAT  <•  SUB'.U,'  SOL‘,13,':  '.2C15) 

TEST  IF  ALL  SUB  PROBLEMS  HAVt  BEEN  SOLVED;  IF  SO,  NO  BRANCHING 
NECEsaARY 

IF  (ivJFIX  - NS  OB  S + U 2200,41300,9959 


CCMFOTATIlNS  COMPLETED;  OUTPUT  OPTIMAL  SOLUTION  INFORMATION 
CALL  CLTSULIINC) 

CALL  FCLUlKI JT  IMt,  ITCT) 

TTCT  = JTIME/LCO. 

COTPUT  ALGORITHMIC  PERFORMANCE  INFORMATION 
wRITE  16,71  TTLT 

FORMAT  (/•  TOTAL  SOLUTION  TIME  = • ,F 7. 2, ' SECUNOS' ) 

WRITE  (o,52)  TPH1,  NALG,  TALI),  ( NTSGLI  J)  » J = I,NSUBSJ 

FORMAT  l*  TIME  IN  PHASE1  =*,F6.i,'  SECONDS • / * MASTER  PR06LEM  SOLVt 
1C, IlC,'  TIMlb:  TGTAl  TIME  SULVING  MASTER  PROBLEM  =>,Fb.Z,t  SEOON 

<us*/'  number  of  times  cach  subprc ec em  solved  =*,i8x,ioi5) 

WRITE  16,41  INSULIJI,  J=L,NSUBS» 

FORMAT  (•  NUMBER  OF  DISTINCT  SOLUTIONS  OBTAINED  IN  EACH  SUBPROBLEM 
1 = • , 1 C 1 3) 

WRITE  (6,91)  T SOBS 

FORMAT  l*  TOTAL  TIME  SOLVING  SOEPRGELEMS  =',Fo.2»'  SECONDS') 

GC  TC  10 

STOP 

ENC 

6LCCK  CATA 


INITIALIZES  GLOBAL  PROGRAM  CONSTANTS 

SiePUUTINE  ADAPTED  FROM  LINtAfi  PROGRAMMING  CODE  LPM-1,  WRITTEN 
B V J.«.  TOMLIN  (OPERATION;.  RESEARCH,  STANFORD  UNIVERSITY) 


IMPLICIT  KE AL*4  ( A ,C ,E-H,G,P, R-N, Z)  , RE  AL*  8 (B.D.X.Y), 

1 INTEGER *4  U-N,a> 

CCMMCN/bLUCX/  Zt CL Z E , ZTOLP V , Z TC C S T , ZTOL R J , Z T QL SM , CRO , QMA , OB A ,QF 1 , 

1 LeG, LBL.wA , wPL ,UM  I ,Cz  ,gl , wF , LN.LU, NRMAX,NEMA*,uB,OC, 

2 wt»wH,ijL,  v)0  , UR  , QM  iQG.NTMAX 

RE  a l 7TOLZt/i.E-5/  , ZTOLP V/l.E-4/, ZTCUST/ 1 . E- 3/ , Z TOLR J / 1. E-4/ , 

1 ZTuLSM/l.E-lO/ 

INTEGER*-,  NRM*X/60/,NTMAX/25G/,NEKAX/1000/ 

INTEC  ER*4  lRO/'ROw  ' / » GMA/ 'MATR •/  ,J  t A/' bA  S I' /,  QF  I/'FIRS'/, 

>/,aA/'A  ' /, CPL/ ' ♦ • / , OMI / • - •/, 


lLEC/’ECF  'Z.wBl/ 

<.//•  I ' / , L 1/ ' 1 
3«B/'B  '/.lL/'L 

ACC/'C  ‘/.LR/'K 
END 

SLBROLTlNt  INPUT  1 1 TPR0B) 


• / , wF / * F 
'/,wt/' fc 
• / ,L|M/  • M 


• / , LN  / • N 
• /,OH/'H 
' /,&G/'G 


• /.CU/'O 
• / , LL/' L 

•/ 


• /, 

• /. 


INTLT  3 PRCBLtM  LATA 


1 


159 


122  . 

C 

CHECK  1 F ANY  SO  EPKOBL  tM  HAS  PREVIOUSLY  BEEN  SOLVeO  UNDER 

ITS 

12  3. 

c 

CURRENT  ALLCCATICN 

124. 

CALL  CCMLHMJ.K) 

125. 

if  ( i ccm  .tc.  o)  of.  ro  oooo 

126. 

c 

ERANOri  ON  ALLOCATION  VARIABLE  IN  SUoPKOBLEM  J 

12/. 

22CC 

CALL  CMBRAMJ.K) 

123. 

IF  ( 7*  £ T A7  .EC.  Oi  Oh  TO  2000 

129. 

C 

Fin  AlLCCAT  ION  1C  SUBPRCbLcM  J ai  level  k 

130. 

23CC 

JFIXl  J)  = K 

131  . 

NJF  IX  = NJF IX  + i 

132. 

JFIXSM  = uFIXSM  ♦ USTARlK.JI 

133. 

IF  IN jF 1 A . LT.  NSUB3J  GO  70  21UC 

134. 

C 

all  sUcb  fixed:  COMPARE  SClLTIGN  wITh  INCUMBENT 

133. 

IF  (JFlxSM  .Lt.  1 2 l NO ) GU  TU  25C0 

136. 

CC  24CC  I =1 »NiLB  S 

137. 

24CC 

INCH)  = OF  U(  11 

1 35  . 

I / I N C = JF1XSM 

139. 

CALL  FCLuCK ( Jl  IME,  1TCT) 

140. 

TCP1  = JTIME/IGO. 

141. 

WRITE  16, SO)  TCP  T , 1 2 INC 

142. 

S3 

FGKMA1  (•  TIME  = • , F7.2, • SECONDS:  I2INC  =*,110) 

143. 

25CC 

JFIX(J)  = C 

144. 

JFIXSM  -=  JrlXSM  “ 1 2STAR  1 K , J 1 

145. 

NJF  IX  = N Jr  IX  - l 

14o  . 

GC  TC  2uoo 

147. 

C 

143  . 

c 

SELECT  NEXT  SuBPRUBLcM  TU  SULvE 

149. 

3CCC 

AVMAX  = “1CCC0. 

150. 

J = C 

151  . 

CO  3 ICC  i = l,NSLBS 

152. 

IF  (JfIXIIl  .GT.  01  Gu  TO  3100 

153  . 

IF  lAvMAX  .OE.  AVI  111  00  TO  JlOC 

154  . 

J = l 

155. 

AVMAX  = AVll) 

156. 

3 ICC 

CCNTIMt 

157. 

32CC 

MSCL1J1  = NTjOLUI  ♦ 1 

15  3. 

CALL  FCluOM  JT  IME,  1TCT) 

159. 

C 

LG  A C PRCtLtM  oATA  FUR  SUBPRuBLEM  J 

160. 

CALL  LOOAIAU) 

161. 

IPAH  = 0 

162  . 

ITSINV  99S99 

163. 

IFEAS  = 0 

164. 

C 

GET  OPTIMAL  lP-SCLUTICN  TU  SCBPRCbLEM  J 

165. 

CALL  NCRMAL 

165. 

C 

TEST  IF  iubPRUBLtM  J IS  LP-F  E A S 1 6L  E 

167. 

IF  (MSTAT  .tU.  CM  GC  To  o30U 

163. 

C 

STCPt  oPIIMAl  GCAL  MJoTIPlIERS  IF  ClaTINCT  FROM  PREVIOUS 

MULT  S 

169. 

CALL  FIsAvRlJl 

1 70. 

c 

SUPPkloLcM  J LP-FEAi I BL  £ j GET  INITIAL  LOWER  BOUND  ESTIMATE  UN 

171. 

c 

MAX.  iP-obJ.  VAL. 

172. 

CALL  CETLBClJl 

173. 

IMTBC  = INcUMEl  1) 

174. 

c 

USE  BKANOh-AND-eCUND  ROUTINE  TC  COMPOTE  OPT.  1P-S0LUTICN 

TO 

175. 

c 

SLEPKOoLeM  J 

1 7o. 

CALL  IAiNlibI  IMTBD) 

177. 

33CC 

CALL  FCoUoMJTlMcl  , 1T0T1 

179. 

TIME  = IJTIME1  - JllMEl/UO. 

179. 

isces  = Tsces  ♦ time 

ibo. 

c 

LPCATt  SooPRoBotM  SELECTION  RULE  INFORMATION  FOR  SU6PR0BLEM  j. 

lei . 

c 

IN  ALCOmoANLE  a I IH  VALUc  SPECIFIED  FUR  IPARM 

182. 

GC  TC  1 3310, 3320 , 3 33C, 3400 ) , 1 PARM 
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c 

c 

c 


PHASc  1 


ei . 

62. 

63. 

64. 
6b  . 
6o  . 
6 7 . 
63. 
6s' . 
70. 
71  . 


5L 


ICC 

2 c c 


25  C 
25C 


2 C C 

<*cc 

6 C C 


C 

C 

C 

c 

c 

2CCC 

c 

2 ICC 

c 

c 


c 


DC  ICC  J=1  iNSUBS 
NLAPCMoJ  = 6 
NTSCL(J)  = C 
A V I J ) = 0. 

NSCLIJ)  = i 
JF IX ( o ) = C 
CALL  INPuTlJl 
CC  50  1 = 0 t NL  INK 
IBSTAR(1*1,J1  = IDINTIBU  + Ul 

itsinv  = sssss 

call  NORMAL 
CALL  FISAVx(j) 

CALL  A Luc  1 1 1 IP  Ai<  ) 

NNEWPl  = 0 
CC  2C  C j-1i  NiOBS 
LL  = NSul ( J I 
LISTL  = LL  ♦ 0 
OC  25C  6=1, LL 
CC  24 C I=i,NLlNK 

IF  ( I eSTAk  I I ,6,0  J -NE.  IBSTARII  , LISTL,  JN  Go  TO  250 

CCNTINUE 

GC  TC  300 

CCNTINLE 

CALL  LCOA  T A l J J 

I T S IN  V = SSSSS 

CALL  NCRMAL 

NEWPt  = NLAKUAU) 

CALL  FISAVHIJ) 

NEkPI  = HlAMOAIJ)  - NErtPI 
NNEWPl  = NNn*PI  + NE»PI 
NSCLIO)  = LiSTL 
CCNTINLE 

IF  (NNEwPi)  4CC,4JC,200 
1>C  50  C J= 1 » NSo  BS 
NSCL(d)  = C 

CALL  FCLOLMJT  IME,  ITCT) 

TPPi  = JTIME/1LG. 

GC  TC  2aOU 


PhnSt  2 

BACKTRACK  TL  LAST  PkQMISlNo  NOOE  IN  ALL CC AT  ION- V AR i ABC £S  SEARCH 
TREE 

CALL  EBkTRK 

IF  LIST  uF  STORED  NuOfcs  IS  EMPTY,  COMPUTATIONS  ARE  CoMPlETEO 
IF  (IELl  .El.  CJ  GC  TO  SOOO 
NALC  = NALL  ♦ 1 
CALL  FClULK ( JT  IME,  1TUTI 

SOLVE  MASTER  PRCBLtM  TO  OBTAIN  PROMISING  NEW  ALLOCATION  uF 
LINKI.,0  RESOURCE  TO  SuBPRJBLEMS 
CALL  ALuuTc(iPAk) 

CALL  FCluCK  I JTIMH  t lTuTJ 

TALC  = TALL  + IJTIREi  - JTIMEJ/10C. 

IPAR  = i 

TEST  FOR  FATHOMING  OF  CURRENT  NODE 
IF  (INCVAL  .LE.  I Z I NCI  GO  TO  20C0 
I ZB  AR  = iNCvAL 


r 
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CECCMPCS  ITK.N  RCcIiNE,  JMLL 

CcCCMPoSIT  i CN  ANu  SULUTIuN  OF  PURE  — i NTEGEK  LINEAR  PROGRAMS 
(PITH  GENERAL  1 NTtccK  VARIABLES)  WITH  BLOCK  ANGULAR  CONSTRAINT 
RAlKiecS. 

RllTIPLc  cINaING  CONSTRAINTS  CASE******* 

GARY  A.  puCHMAN  (OPERATIONS  RESEARCH),  SEPT.  1976t  MOD  1 


IRFLICIT  RE  Al*  A IA  ,C,E-H,C,P,R-P,  i)  , REAL*8  <b,D,X,Y), 

1 Ik1Lulr»A  (I— N,G) 

INTEGER*..  jh,MNbAS,cA,Lc,  IA,  It 
INTEGER**.  IPARTjiNCcM?,!  Vi)  NO  ,IVlC«ICBNO 
INT  EG  EP*2  I2STAk,1EI0, i BONO  , I Ed  NO 
iNTEGER*^  lAiiLAS 
CCLBLE  PRECiSILi'i  tllOUu) 

cl  MENS IoN  a (bOU) ,1  NC ( 10) , AV ( 10 J .NTSCL ( 10 ) 

CCRRCN/dLucK/  lTCL  ZE.aTjLPV, A Tecs T,  iTCLRJ , ZTCL  SM  *QRU* QMA,UBA,QF l , 

1 GbU,oBc,wA*UPC,UMI,CA,wl»OF,CiN»QU*  NR  MAX  » NcM AX , wB , 0 C 

2 ct»ARiCCii«CicR»uM»«GtNTMAX 

CCRMCN/BloCKl/  JRP  ART (122)  , RE  V B NO , l NC V AL  , I COL,  LI  STL,  I VAc,  IDI  R, 

1 NPI  VCT,iPTYP£,RCCST,  IFEAS,  IPART(122)«INCUMdfi2L)« 

2 I VBNC(BOU) , 1 VI o ( 50  0 , ICBNOoOQ) 

CCMRCN/dlOLKj/  rcARDaI 3.20,10) , 2NAU T ( 20 , 10 ) , ZJ3ARI 10)  ,Nt INK, NSUb  S 

II  7 INC  , UbAR  , I OCM  , I £Lt,NJnIX»JPIXSR»  lb(t>),JFIX(  10)  ,NSOL(  lO  , 
2NLAMCA  1 10)  , IoSTaKI  ;,ag,10) , IbOoEUIS ,A  J , 1 0)  , I eUBl 5,10)  , IBLBIB.IO)  , 
2IESTAR(aO,I0),  It)  10  (L  ,100  ) , IddNO  (2  00  ).  I 2BND  (2C0) 

LCRRCN/oL^Cpa/  ALoSdo,  10)  ,XJdS  (2C,  10) , AMATRSI 1000)  ,RHS(10,10), 
INRCwS ( lu)  , NLcLO  10 ) , JFIRST l 11) , IAS4  10  00) , LAS (20, 10) 

CCRRCN  l.XLcUla  ) , XwB(12l)  ,d(oO  ) ,X(  60)  , Y(60)  ,YTEMP(bO),USUMf  OPkj  0 
( OY ,cE,OP,A,  ICNAMC  122,2) ,NARc(20) , NT  EM H 2u ) , SUM  INF , MST A T, 

2 10b J , IRCnP , 1 V IN , 1 VOOT , I T CN T , (N VFkO , IT RFRg , l TS I NV, IFFE2, 

i JcuLR,N.-<Oa,NCCL,NELlM,NEIA,NLELEM,NLETA,NUELEM,NUeTA, 

A IE ( IcOO) , I A ( BOO) , c£(23l)  ,LA(  12L) ,KINBAS(122) , JH(oO) 


RAIN  P i . ^ c K A R 

CCCRJIimATcS  APPLICATION  oF  THE  VARIOUS  STEPS  OF  THE  uECUMPOSi 
T ! CN  ALCCRITHR. 


IMTlACiic  FARARETeKS 
1C  CALL  T Cluc K ( I TCT ) 

REAC(  ‘,  l,E(,c*9S99)  NSUoS.NLlNK,  IP  AR  R , I 2 1 NC 
1 FCRRA-i  (BILL) 

P E A C (5,1)  ( Id ( I ) , 1-1 , NLINK) 

CC  2C  J*  i , 12l 
ICNAR  ( j ,1 ) = 0 

lC  ICNAR ( J , O = 0 
IC8J  = 1 
I IRFR  C =•  SSS99 
INITbt  = 0 
I EL  L = C 
1 1 P AP  - 1 wCCO 
JFIX(NSodS)  =■  0 
I P A B = o 
N JF IX  = G 

JFIXSR  = c 
JFIRSKD  = I 
NALC  = 0 
TALC  ’ u. 

T SUES  3 0. 

NFl  = NclNK  l 1 


li] 


SECURITY  CLASSIFICATION  CF  TNtb  PAGE  Data  Knlered) 


Rt AD  INSTRUCTIONS 
UWOPE  COMPLETING  FORM 


REPORT  DOCUMENTATION  PAGE 


3 RtClHiFNT'S  C*rALCG  NUMBER 


Ji.  GOVT  Accession  NO. 


5.  type  < F REPORT  ft  PERIOO  COVERED 


4 title  (and  Sutntie) 


Technical  Report 


COMPUTER  PROGRAMS  FOR  DECOMPOSITION  IN  INTEGER 
PROGRAMMING 


« performing  org.  report  number 


• CONTRACT  OR  GRANT  NUMBERf*) 


author^; 


N00014-76-C-0418 


Garv  A.  Kochman 


»o.  program  element,  project,  task 


performing  ORGAHk».TlCN  N AM  F ANO  AOORCSS 


AREA  ft  WORK  UNIT  NUMBERS 


Dept,  of  Operations  Research 
Stanford  University 
Stanford,  California 


M.  REPORT  DATE 

September  1976 


• CONTROLLING  OFFICE  NAME  ANO  ADDRESS 

Logistics  & Mathematical  Statistics  Branch 
Code  434  Office  of  Naval  Research 
Arlington,  Va.  22217 

l MONITORING  AGENCY  NAME  ft  ADDRESS^!/  dlllarant  from  Controlling  Otllca) 


162 

15.  SECURITY  CLASS,  (ol  thla  report) 

UNCLASSIFIED 


%m.  OECL  ASSI  FI  CATION/ DOWNGRADING 
SCHEDULE 


IT  DISTRIBUTION  STATEMENT  (ol  tt<a  abatraci  an  farad  In  Block  20,  II  dlflarant  Irom  Report, 


:h  was  supporti 
lC29-74-C~0034 
i620-74-C-0079 


19  KEY  WOROS  (Continue  or  ravetaa  aldm  It  nacaaaary  and  Identity  by  block  number) 


Mathematical  Programming,  Integer  Programming,  Decomposition 


(Continue  nn  revere a tide  II  nacaaaary  and  Identity  by  ftloclr  number) 


20  ABSTR 


^This  report  gives  documentations  for  two  computer  codes,  DSLC  and 
DMLC  for  solving  block  angular  integer  programming  problems.  The  first 
code,  DSLC,  is  for  the  single  linking  constraint  case  and  the  second 
DMLC  is  for  the  multiple  linking  constraint  case. 


EDITION  or  I NOV  6*  It  OMOLCTI 
S/N  0103-0)4-  6*01 


UNCLASSIFIED 

SECURITY  CLAMirtCATiOH  OF  TNI*  RAO*  Dal* 


